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

[ieslick]

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."