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