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))