[elephant-cvs] CVS elephant/tests

[ieslick]

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

Modified Files:
	testindexing.lisp 
Log Message:
A few details to go green on sbcl and acl on mac32

--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2007/03/08 19:50:20	1.34
+++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2007/03/08 21:29:53	1.35
@@ -105,8 +105,8 @@
 (deftest indexing-class-opt
     (progn
       (when (class-indexedp-by-name 'idx-cslot)
-	(disable-class-indexing 'idx-cslot :errorp nil)
-	(setf (find-class 'idx-cslot) nil))
+	(disable-class-indexing 'idx-cslot :errorp nil))
+      (setf (find-class 'idx-cslot) nil)
       
       (defclass idx-cslot ()
 	((slot1 :initarg :slot1 :initform 0 :accessor slot1))
@@ -227,9 +227,9 @@
 
 (deftest indexing-wipe-index
     (progn 
-      (when (class-indexedp-by-name 'idx-five-del )
-	(disable-class-indexing 'idx-five-del :errorp nil)
-	(setf (find-class 'idx-five-del) nil))
+      (when (class-indexedp-by-name 'idx-five-del)
+	(disable-class-indexing 'idx-five-del :errorp nil))
+      (setf (find-class 'idx-five-del) nil)
 
       (defclass idx-five-del ()
 	((slot1 :initarg :slot1 :initform 1 :accessor slot1 :index t))