use &body instead of &rest to aid emacs indentation

[clsql.git] / sql / transaction.lisp

diff --git a/sql/transaction.lisp b/sql/transaction.lisp
index a2fdda32cc44db97e19ef8cfa0af771729b98e39..24465d174f5a39529dc1e19d6ecd522c57b0e8e5 100644 (file)
--- 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