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