From: Kevin M. Rosenberg Date: Fri, 4 Jun 2004 23:57:15 +0000 (+0000) Subject: r9556: * sql/transactions.lisp: Apply return value patch from X-Git-Tag: v3.8.6~331 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=7e18531064e864a8b7ed655ca0f139df5509c8cc;ds=sidebyside r9556: * sql/transactions.lisp: Apply return value patch from Edi Weitz for WITH-TRANSACTION --- diff --git a/ChangeLog b/ChangeLog index d3d497e..1039bb2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 04 Jun 2004 Kevin Rosenberg * tests/README: Fix filename [reported by Bill Clementson] + * sql/transactions.lisp: Apply return value patch from + Edi Weitz for WITH-TRANSACTION 03 Jun 2004 Kevin Rosenberg * Version 2.11.5 released diff --git a/sql/transaction.lisp b/sql/transaction.lisp index 201d7c0..bf368c0 100644 --- a/sql/transaction.lisp +++ b/sql/transaction.lisp @@ -82,9 +82,10 @@ back and otherwise the transaction is committed." (let ((db (gensym "db-"))) `(let ((,db ,database)) (unwind-protect - (progn + (prog2 (database-start-transaction ,db) - ,@body + (progn + ,@body) (mark-transaction-committed ,db)) (if (eq (transaction-status (transaction ,db)) :committed) (database-commit-transaction ,db)