X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftransaction.lisp;fp=sql%2Ftransaction.lisp;h=24465d174f5a39529dc1e19d6ecd522c57b0e8e5;hp=a2fdda32cc44db97e19ef8cfa0af771729b98e39;hb=adc55338c3bf10e87af43cf78c2c29b4e896fae5;hpb=a407cdf939e54eb440f9ec5a975ad81858e86610

diff --git a/sql/transaction.lisp b/sql/transaction.lisp
index a2fdda3..24465d1 100644
--- a/sql/transaction.lisp
+++ b/sql/transaction.lisp
@@ -93,7 +93,7 @@ is called on DATABASE which defaults to *DEFAULT-DATABASE*."
              (not (transaction-status (transaction database))))
     (setf (transaction-status (transaction database)) :committed)))
 
-(defmacro with-transaction ((&key (database '*default-database*)) &rest body)
+(defmacro with-transaction ((&key (database '*default-database*)) &body body)
   "Starts a transaction in the database specified by DATABASE,
 which is *DEFAULT-DATABASE* by default, and executes BODY within
 that transaction. If BODY aborts or throws, DATABASE is rolled