[elephant-cvs] CVS elephant/tests

[ieslick]

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)