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

[ieslick]

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))