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@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*)