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

Modified Files: collections.lisp Log Message: typo: forgot populate keyword on generic add-index

Date: Tue Sep 21 03:34:32 2004 Author: blee

Index: elephant/src/collections.lisp diff -u elephant/src/collections.lisp:1.8 elephant/src/collections.lisp:1.9 --- elephant/src/collections.lisp:1.8 Sun Sep 19 19:48:11 2004 +++ elephant/src/collections.lisp Tue Sep 21 03:34:31 2004 @@ -106,7 +106,7 @@ (declare (ignore slot-names rest)) (setf (indices-cache instance) (indices instance)))

-(defgeneric add-index (bt &key index-name key-form) +(defgeneric add-index (bt &key index-name key-form populate) (:documentation "Add a secondary index. The indices are stored in an eq hash-table, so the index-name should be a symbol. key-form