Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv27552
Modified Files: inspect.lisp Log Message: More defstruct fixes. Structs now have a class slot, not a name slot. And, let's allow a :superclass option for defstruct.
Date: Tue Jul 27 02:19:14 2004 Author: ffjeld
Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.31 movitz/losp/muerte/inspect.lisp:1.32 --- movitz/losp/muerte/inspect.lisp:1.31 Fri Jul 23 08:36:46 2004 +++ movitz/losp/muerte/inspect.lisp Tue Jul 27 02:19:14 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.31 2004/07/23 15:36:46 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.32 2004/07/27 09:19:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -245,7 +245,7 @@ (test cdr))) (structure-object (and (typep y 'structure-object) - (test structure-object-name) + (test structure-object-class) (test structure-object-length) (dotimes (i (structure-object-length x) t) (unless (test structure-ref i)