From 0cd76c40b5906d3c5142796d6aa6b28da76c3a0a Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 13 Apr 2004 16:07:02 +0000 Subject: [PATCH] r8995: add quote to default parameter for WITH-TRANSACTIONS --- ChangeLog | 5 +++++ base/transaction.lisp | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 -- 2.34.1