[elephant-cvs] CVS elephant/tests
rread
rread at common-lisp.net
Thu Feb 8 22:33:35 UTC 2007
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))
More information about the Elephant-cvs
mailing list