Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv16753/src/db-bdb
Modified Files: bdb-transactions.lisp Log Message: Cleaning up root directory files; map-index performance enhancement, index api cleanup, ensure transaction fix, alpha quality documentation draft
--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp 2007/04/27 13:32:14 1.15 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp 2007/04/28 02:31:15 1.16 @@ -31,15 +31,13 @@ for count fixnum from 1 to retries for success of-type boolean = nil do - (let ((txn - (if transaction transaction - (db-transaction-begin env + (let ((txn (db-transaction-begin env :parent (if parent parent +NULL-VOID+) :degree-2 degree-2 :read-uncommitted read-uncommitted :txn-nosync txn-nosync :txn-nowait txn-nowait - :txn-sync txn-sync)))) + :txn-sync txn-sync))) (declare (type pointer-void txn)) (let (result) (let ((*current-transaction* (make-transaction-record sc txn))