[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-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 at 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)