Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv556/src/db-bdb

Modified Files: bdb-controller.lisp Log Message: Added legacy upgrade support, fixed some store-controller base class functionality for SQL to properly delete connections on close

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2006/02/22 21:03:47 1.5 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2006/03/07 14:12:22 1.6 @@ -103,10 +103,10 @@ :auto-commit t :create t :thread t) (setf (controller-oid-seq sc) oid-seq)))

- (setf (slot-value sc 'root) + (setf (slot-value sc 'root) (make-instance 'bdb-btree :from-oid -1 :sc sc))

- (setf (slot-value sc 'class-root) + (setf (slot-value sc 'class-root) (make-instance 'bdb-btree :from-oid -2 :sc sc))

sc))) @@ -133,10 +133,7 @@ (setf (controller-db sc) nil) (db-env-close (controller-environment sc)) (setf (controller-environment sc) nil) - nil) - ;; Delete connection spec so object ops on cached db info fail - (remhash (controller-spec sc) *dbconnection-spec*)) - + nil))

(defmethod next-oid ((sc bdb-store-controller)) "Get the next OID."