Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv26423/tests
Modified Files: testindexing.lisp Log Message: More robust upgrade mechanism, one bug fix, better user of PK
--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/07 22:54:13 1.25 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/08 22:33:35 1.26 @@ -204,9 +204,6 @@ (defclass idx-five-del () ((slot1 :initarg :slot1 :initform 1 :accessor slot1)) (:metaclass persistent-metaclass)) - (format t "r1 = ~A~%" r1) - (format t "r1 = ~A~%" (get-index (get-value 'idx-five-del (elephant::controller-class-root *store-controller*)) - 'slot1)) (values (eq (length r1) 1) (signals-error (get-instances-by-value 'idx-five-del 'slot1 1))