[elephant-cvs] CVS elephant/src

[ieslick]

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

Modified Files:
	indexing.lisp 
Log Message:

Updated TODO list.  Minor tweak in indexing.



--- /project/elephant/cvsroot/elephant/src/indexing.lisp	2006/02/14 15:25:10	1.4
+++ /project/elephant/cvsroot/elephant/src/indexing.lisp	2006/02/14 15:31:09	1.5
@@ -399,12 +399,13 @@
 	    nil)))))
 		     
 (defun drop-instances (instances &key (sc *store-controller*))
-  (assert (consp instances))
-  (with-transaction (:store-controller sc)
-    (let ((class-idx (find-class-index (class-of (first instances)))))
-      (mapc (lambda (instance)
-	      (remove-kv (oid instance) class-idx))
-	    instances))))
+  (when instances
+    (assert (consp instances))
+    (with-transaction (:store-controller sc)
+      (let ((class-idx (find-class-index (class-of (first instances)))))
+	(mapc (lambda (instance)
+		(remove-kv (oid instance) class-idx))
+	      instances)))))
 	       
 ;; =============================
 ;;  CLASS / DB SYNCHRONIZATION