Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv24359/tests

Modified Files: testindexing.lisp Log Message: Fix bug in testindexing; more TODO tweaks

--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/21 06:29:32 1.28 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/25 09:37:01 1.29 @@ -201,7 +201,7 @@

(let ((orig-len (length (get-instances-by-class 'idx-unbound-del))) (orig-obj (get-instance-by-value 'idx-unbound-del 'slot1 10))) - (slot-makunbound orig-obj 'name) + (slot-makunbound orig-obj 'slot1) (let ((new-len (length (get-instances-by-class 'idx-unbound-del))) (index-obj (get-instance-by-value 'idx-unbound-del 'slot1 10))) (values orig-len new-len index-obj))))