From 7e18531064e864a8b7ed655ca0f139df5509c8cc Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 4 Jun 2004 23:57:15 +0000 Subject: [PATCH] r9556: * sql/transactions.lisp: Apply return value patch from Edi Weitz for WITH-TRANSACTION --- ChangeLog | 2 ++ sql/transaction.lisp | 5 +++-- 2 files changed, 5 insertions(+), 2 deletions(-) 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) -- 2.34.1