Edi Weitz for WITH-TRANSACTION
04 Jun 2004 Kevin Rosenberg <kevin@rosenberg.net>
* 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 <kevin@rosenberg.net>
* Version 2.11.5 released
(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)