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)