[elephant-cvs] CVS elephant/src/db-bdb

[ieslick]

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)))