[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-serv19911/src

Modified Files:
	collections.lisp 
Log Message:
because of allocation type weirdness, should always init indices-cache

Date: Sat Sep 25 20:57:37 2004
Author: blee

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