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