Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv18112 Modified Files: testindexing.lisp Log Message: Fix for clas indexing test --- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/03/03 17:25:01 1.32 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/03/08 19:24:45 1.33 @@ -110,9 +110,12 @@ (defclass idx-cslot () ((slot1 :initarg :slot1 :initform 0 :accessor slot1)) - (:metaclass persistent-metaclass :index t)) + (:metaclass persistent-metaclass) + (:index t)) - (values (class-indexedp-by-name 'idx-cslot))) + (make-instance 'idx-cslot) + + (values (if (class-indexedp-by-name 'idx-cslot) t nil)) t)