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

Modified Files: bdb-collections.lisp Log Message:

Migration tests pass on BDB. Only migrate ipclass failes under SQLite 3 (May be due to other current failures under SQLite 3) Significant improvements in transaction stability, stability with mutiple open stores, bdb processing speed, and various bug fixes turned up by getting these tests to pass.

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp 2006/02/19 20:06:03 1.2 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp 2006/02/21 19:40:03 1.3 @@ -90,9 +90,6 @@ (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 @@ -209,6 +206,9 @@ (: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)))