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

[ieslick]

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

Modified Files:
	bdb-collections.lisp bdb-transactions.lisp 
Log Message:

Fix for a problem during migration of persistent classes from one store to another.
0.6.0 is clean for BDB/Allegro on Mac OS X



--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp	2006/04/26 17:53:44	1.6
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp	2006/04/26 19:19:12	1.7
@@ -159,7 +159,7 @@
 	(serialize key key-buf)
 	(serialize value value-buf)
 	(with-transaction (:store-controller sc)
-	  (db-put-buffered (controller-btrees sc) 
+	  (db-put-buffered (controller-btrees sc)
 			   key-buf value-buf)
 	  (loop for index being the hash-value of indices
 	     do
--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp	2006/02/20 21:21:41	1.2
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp	2006/04/26 19:19:12	1.3
@@ -44,8 +44,8 @@
 	 (let ((result
 		(let ((*current-transaction* txn)
 		      (*auto-commit* nil))
-		  (declare (special *current-transaction* *auto-commit*)
-			   (dynamic-extent *current-transaction* *auto-commit*))
+		  (declare (special *current-transaction* *auto-commit*))
+;;			   (dynamic-extent *current-transaction* *auto-commit*))
 		  (catch 'transaction
 		    (unwind-protect
 			 (prog1