X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Ftransaction.lisp;h=bf368c007d8b8aaee8fbfe6fe47645d6876274db;hb=a050eddab954ab3045d8427cf0c5563142266833;hp=201d7c015b63b1b5663d5c92b955a84678c42c26;hpb=44cd3f817f6f59ffe495db4cf2b9ea4637a57f75;p=clsql.git

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)