[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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