[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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