Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv9966/tests Modified Files: testindexing.lisp Log Message: Further lispworks tweaks; fix bug in wipe-class-indexing --- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/26 19:12:20 1.30 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/26 19:55:13 1.31 @@ -219,6 +219,7 @@ (:metaclass persistent-metaclass)) (with-transaction (:store-controller *store-controller*) + (drop-instances (get-instances-by-class 'idx-five-del)) (make-instance 'idx-five-del)) (let ((r1 (get-instances-by-value 'idx-five-del 'slot1 1)))