Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory common-lisp:/tmp/cvs-serv15680/src/db-bdb

Modified Files: bdb-collections.lisp Log Message:

Added final indexing test (redefine class) green under ACL (and shouldn't have a problem under SBCL). A little tweak here and there, updated the TODO list.

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp 2006/02/21 19:40:03 1.3 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp 2006/02/22 04:40:57 1.4 @@ -90,6 +90,9 @@ (defmethod build-indexed-btree ((sc bdb-store-controller)) (make-instance 'bdb-indexed-btree :sc sc))

+(defmethod build-btree-index ((sc bdb-store-controller) &key primary key-form) + (make-instance 'bdb-btree-index :primary primary :key-form key-form :sc sc)) + (defmethod add-index ((bt bdb-indexed-btree) &key index-name key-form populate) (let ((sc (get-con bt))) ;; Setting the value of *store-controller* is unfortunately @@ -206,9 +209,6 @@ (:metaclass persistent-metaclass) (:documentation "A BDB-based BTree supports secondary indices."))

-(defmethod build-btree-index ((sc bdb-store-controller) &key primary key-form) - (make-instance 'bdb-btree-index :primary primary :key-form key-form :sc sc)) - (defmethod get-value (key (bt bdb-btree-index)) "Get the value in the primary DB from a secondary key." (declare (optimize (speed 3)))