Update of /project/elephant/cvsroot/elephant/src/elephant In directory common-lisp:/tmp/cvs-serv21166/src/elephant

Modified Files: classindex.lisp Log Message: Bug fixes to indexing tests for failures under SBCL

--- /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp 2006/02/21 19:40:03 1.2 +++ /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp 2006/02/22 17:15:49 1.3 @@ -165,7 +165,7 @@ (when (controller-class-root sc) (map-btree (lambda (class-name index) (declare (ignore index)) - (let ((class (find-class class-name :errorp nil))) + (let ((class (find-class class-name nil))) (when class (setf (%index-cache class) nil)))) (controller-class-root sc))))