[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv22948/src/elephant

Modified Files:
	classindex.lisp 
Log Message:

Fix for a problem during migration of persistent classes from one store to another.
0.6.0 is clean for BDB/Allegro on Mac OS X



--- /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp	2006/04/26 17:53:44	1.9
+++ /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp	2006/04/26 19:19:12	1.10
@@ -425,7 +425,7 @@
 		     
 (defun drop-instances (instances &key (sc *store-controller*))
   (when instances
-    (assert (consp instances))
+    (assert (and (consp instances) (< (length instances) 500)))
     (with-transaction (:store-controller sc)
       (mapc (lambda (instance)
 	      (remove-kv (oid instance) (find-class-index (class-of instance)))