r8995: add quote to default parameter for WITH-TRANSACTIONS

diff --git a/ChangeLog b/ChangeLog
index b419131966583f1509f28a7c875d1c2e4ae0dcb3..684b5893f5e4aa391a6e9c99bcf59988f214087b 100644 (file)
--- 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 da03282c811ce3e644b1adbd7aed8689fdd81aa3..fa4f7523fd72af0c4cea3c72a2ae33ef99703fa4 100644 (file)
--- 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