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