[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