[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp

[Frode Vatvedt Fjeld]

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 at 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."