[elephant-cvs] CVS elephant/tests

[ieslick]

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

Modified Files:
	testindexing.lisp 
Log Message:
Further rethink of roadmap and TODO tasks

--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2006/05/06 19:18:01	1.18
+++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2006/09/04 05:42:43	1.19
@@ -74,13 +74,14 @@
       ;;(format t "~%basic store: ~A  ~A~%" *store-controller* (elephant::controller-spec *store-controller*))
 ;;      (format t "auto-commit: ~A~%" *auto-commit*)
 
-      (when (class-indexedp-by-name 'idx-one )
+      (when (class-indexedp-by-name 'idx-one)
 	(disable-class-indexing 'idx-one :errorp nil)
 	(setf (find-class 'idx-one nil) nil))
       
       (defclass idx-one ()
 	((slot1 :initarg :slot1 :initform 1 :accessor slot1 :index t))
 	(:metaclass persistent-metaclass))
+
       (defmethod print-object ((obj idx-one) stream)
 	(if (slot-boundp obj 'slot1)
 	    (format stream "slot1 = ~A~%" (slot1 obj))