[elephant-cvs] CVS update: elephant/src/collections.lisp

[blee at common-lisp.net]

Update of /project/elephant/cvsroot/elephant/src
In directory common-lisp.net:/tmp/cvs-serv2520/src

Modified Files:
	collections.lisp 
Log Message:
make shared-init on indexed-btree play nice

Date: Tue Sep 21 21:36:04 2004
Author: blee

Index: elephant/src/collections.lisp
diff -u elephant/src/collections.lisp:1.9 elephant/src/collections.lisp:1.10
--- elephant/src/collections.lisp:1.9	Tue Sep 21 03:34:31 2004
+++ elephant/src/collections.lisp	Tue Sep 21 21:36:03 2004
@@ -103,8 +103,9 @@
 
 (defmethod shared-initialize :after ((instance indexed-btree) slot-names
 				     &rest rest)
-  (declare (ignore slot-names rest))
-  (setf (indices-cache instance) (indices instance)))
+  (declare (ignore rest))
+  (if (member 'indices slot-names :test #'eq)
+      (setf (indices-cache instance) (indices instance))))
 
 (defgeneric add-index (bt &key index-name key-form populate)
   (:documentation