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