From: Kevin M. Rosenberg Date: Tue, 13 Apr 2004 16:07:02 +0000 (+0000) Subject: r8995: add quote to default parameter for WITH-TRANSACTIONS X-Git-Tag: v3.8.6~637 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=0cd76c40b5906d3c5142796d6aa6b28da76c3a0a r8995: add quote to default parameter for WITH-TRANSACTIONS --- diff --git a/ChangeLog b/ChangeLog index b419131..684b589 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +12 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net) + * Version 2.6.12 + * base/transactions.lisp: Add quote for macro + expansion of WITH-TRANSACTIONS [Time Howe] + 12 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net) * Version 2.6.11 * sql/objects.lisp: add :root-class functionality for diff --git a/base/transaction.lisp b/base/transaction.lisp index da03282..fa4f752 100644 --- a/base/transaction.lisp +++ b/base/transaction.lisp @@ -63,7 +63,7 @@ :format-arguments (list database)))) -(defmacro with-transaction ((&key (database *default-database*)) &rest body) +(defmacro with-transaction ((&key (database '*default-database*)) &rest body) "Executes BODY within a transaction for DATABASE (which defaults to *DEFAULT-DATABASE*). The transaction is committed if the body finishes successfully (without aborting or throwing), otherwise the database is