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

Modified Files: inspect.lisp Log Message: Fixed objects-equalp for symbols.

Date: Thu Jul 29 05:51:40 2004 Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.33 movitz/losp/muerte/inspect.lisp:1.34 --- movitz/losp/muerte/inspect.lisp:1.33 Wed Jul 28 03:01:06 2004 +++ movitz/losp/muerte/inspect.lisp Thu Jul 29 05:51:40 2004 @@ -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.33 2004/07/28 10:01:06 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.34 2004/07/29 12:51:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -229,12 +229,12 @@ (dotimes (i (funobj-num-constants x) t) (unless (test funobj-constant-ref i))))) (symbol - (and ;; (test memref -7 0 :lisp) ; value - (test memref -7 1 :lisp) ; function-value - ;; (test memref -7 2 :lisp) ; plist - (test memref -7 3 :lisp) ; name - ;; (test memref -7 4 :lisp) ; package - (test memref -7 5 :lisp))) ; flags + (and (test memref #.(bt:slot-offset 'movitz:movitz-symbol 'movitz::function-value) + 0 :lisp) + (test memref #.(bt:slot-offset 'movitz:movitz-symbol 'movitz::name) + 0 :lisp) + (test memref #.(bt:slot-offset 'movitz:movitz-symbol 'movitz::flags) + 0 :lisp))) (vector (and (typep y 'vector) (test array-element-type)