[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv3222

Modified Files:
	metaclasses.lisp 
Log Message:
A patch caused by a stale file in my buffer

--- /project/elephant/cvsroot/elephant/src/elephant/metaclasses.lisp	2006/02/25 20:53:57	1.5
+++ /project/elephant/cvsroot/elephant/src/elephant/metaclasses.lisp	2006/02/25 22:05:08	1.6
@@ -192,6 +192,7 @@
 
 (defmethod indexed ((class persistent-metaclass))
   (and (slot-boundp class '%indexed-slots )
+       (not (null (%indexed-slots class)))
        (or (indexing-record-slots (indexed-record class))
 	   (indexing-record-derived (indexed-record class)))))