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

Modified Files: classes.lisp Log Message: Further lispworks tweaks; fix bug in wipe-class-indexing

--- /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/02/26 19:12:18 1.17 +++ /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/02/26 19:55:12 1.18 @@ -96,7 +96,7 @@ (call-next-method) (when (class-finalized-p instance) (update-persistent-slots instance (persistent-slot-names instance)) - (update-indexed-record instance (indexed-slot-names-from-defs instance)) +;; (update-indexed-record instance (indexed-slot-names-from-defs instance)) (if (removed-indexing? instance) (progn (let ((class-idx (find-class-index (class-name instance))))