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

[ieslick]

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