Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19977

Modified Files: inspect.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:03 2005 Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.52 movitz/losp/muerte/inspect.lisp:1.53 --- movitz/losp/muerte/inspect.lisp:1.52 Thu May 5 00:46:44 2005 +++ movitz/losp/muerte/inspect.lisp Thu May 5 22:52:02 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.52 2005/05/04 22:46:44 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.53 2005/05/05 20:52:02 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -53,11 +53,6 @@ (dit-frame-casf stack frame)) (t (stack-frame-ref stack frame 0))))

-;;;(defun stack-vector-designator (stack) -;;; (etypecase stack -;;; (null (%run-time-context-slot 'stack-vector)) -;;; (vector stack))) - (define-compiler-macro current-stack-frame () `(with-inline-assembly (:returns :eax) (:leal ((:ebp ,(truncate movitz::+movitz-fixnum-factor+ 4))) @@ -322,7 +317,11 @@ (std-instance (and (typep y 'std-instance) (test std-instance-class) - (test std-instance-slots))))))))) + (test std-instance-slots))) + (run-time-context + (and (typep y 'run-time-context) + (test %run-time-context-slot 'slots) + (test %run-time-context-slot 'class)))))))))

(define-compiler-macro %lispval-object (integer &environment env) "Return the object that is wrapped in the 32-bit integer lispval."