[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory common-lisp.net:/tmp/cvs-serv20059

Modified Files:
	debugger.lisp 
Log Message:
Changed order of arguments for %run-time-context-slot, new signature
is (context slot-name), where nil may be used as a designator for
(current-run-time-context).

Date: Thu May  5 22:52:46 2005
Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.39 movitz/losp/x86-pc/debugger.lisp:1.40
--- movitz/losp/x86-pc/debugger.lisp:1.39	Mon Apr 25 00:13:54 2005
+++ movitz/losp/x86-pc/debugger.lisp	Thu May  5 22:52:45 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 22 10:09:18 2002
 ;;;;                
-;;;; $Id: debugger.lisp,v 1.39 2005/04/24 22:13:54 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.40 2005/05/05 20:52:45 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -460,7 +460,7 @@
   (loop with location = (truncate eip 4)
       for (slot-name type) in (slot-value (class-of context) 'slot-map)
       do (when (eq type 'code-vector-word)
-	   (let ((code-vector (%run-time-context-slot slot-name)))
+	   (let ((code-vector (%run-time-context-slot nil slot-name)))
 	     (when (location-in-object-p code-vector location)
 	       (return (values slot-name (code-vector-offset code-vector eip))))))))
 
@@ -629,7 +629,7 @@
 		     thereis (match-funobj (method-function m) instruction-location (1- limit))))))))
     (or (loop for (slot-name type) in (slot-value (class-of (current-run-time-context)) 'slot-map)
 	    do (when (and (eq type 'code-vector-word)
-			  (location-in-object-p (%run-time-context-slot slot-name)
+			  (location-in-object-p (%run-time-context-slot nil slot-name)
 						instruction-location))
 		 (return (values slot-name :run-time-context))))
 	(with-hash-table-iterator (hashis *setf-namespace*)