X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Ftransaction.lisp;h=61438edf2a48be4f8edda77e5480a132cd92f7d5;hb=9bbed78051e80e6ab76ae47834136035602bbbf1;hp=da03282c811ce3e644b1adbd7aed8689fdd81aa3;hpb=d8cc56b3f55e00fda2afffe8dae7d158bf33e2d8;p=clsql.git

diff --git a/base/transaction.lisp b/base/transaction.lisp
index da03282..61438ed 100644
--- a/base/transaction.lisp
+++ b/base/transaction.lisp
@@ -12,7 +12,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package #:clsql-base-sys)
+(in-package #:clsql-base)
 
 (defclass transaction ()
   ((commit-hooks :initform () :accessor commit-hooks)
@@ -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