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

Modified Files: inspect.lisp Log Message: Added support for symbols in objects-equalp.

Date: Wed Jul 21 04:48:16 2004 Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.27 movitz/losp/muerte/inspect.lisp:1.28 --- movitz/losp/muerte/inspect.lisp:1.27 Tue Jul 20 16:53:00 2004 +++ movitz/losp/muerte/inspect.lisp Wed Jul 21 04:48:16 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.27 2004/07/20 23:53:00 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.28 2004/07/21 11:48:16 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -232,6 +232,13 @@ (test funobj-num-jumpers) (dotimes (i (funobj-num-constants x) t) (unless (test funobj-constant-ref i))))) + (symbol + (and (test memref -7 0 :lisp) + (test memref -7 1 :lisp) + (test memref -7 2 :lisp) + (test memref -7 3 :lisp) + (test memref -7 4 :lisp) + (test memref -7 5 :lisp))) (vector (and (typep y 'vector) (test array-element-type)