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