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

[ieslick]

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

Modified Files:
	bdb-transactions.lisp 
Log Message:
Enable with-transaction to return multiple values in both backends

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp	2007/02/16 23:02:51	1.8
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp	2007/02/20 02:33:59	1.9
@@ -45,7 +45,7 @@
 		  (declare (special *current-transaction* *store-controller*))
 		  (catch 'transaction
 		    (unwind-protect
-			 (prog1 
+			 (multiple-value-prog1 
 			     (funcall txn-fn)
 			   (db-transaction-commit txn :txn-nosync txn-nosync
 						  :txn-sync txn-sync)