X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftransaction.lisp;fp=sql%2Ftransaction.lisp;h=be3e6d8fdd15c2694299b991036734d09690e189;hp=bf368c007d8b8aaee8fbfe6fe47645d6876274db;hb=cc7abc6063ff8a803064c75c400ec7d31fd29a21;hpb=aee3ea30595ebee301ccb1532062053c3c580e19

diff --git a/sql/transaction.lisp b/sql/transaction.lisp
index bf368c0..be3e6d8 100644
--- a/sql/transaction.lisp
+++ b/sql/transaction.lisp
@@ -52,9 +52,9 @@
 	  (setf autocommit (previous-autocommit transaction))
           (map nil #'funcall (commit-hooks transaction)))
         (warn 'sql-warning
-              :format-control
-	      "Cannot commit transaction against ~A because there is no transaction in progress."
-              :format-arguments (list database)))))
+              :message
+	      (format nil "Cannot commit transaction against ~A because there is no transaction in progress."
+		      database)))))
 
 (defmethod database-abort-transaction ((database database))
   (with-slots (transaction transaction-level autocommit) database
@@ -65,9 +65,9 @@
 	    (setf autocommit (previous-autocommit transaction))
             (map nil #'funcall (rollback-hooks transaction))))
         (warn 'sql-warning
-              :format-control
-	      "Cannot abort transaction against ~A because there is no transaction in progress."
-              :format-arguments (list database)))))
+	      :message
+	      (format nil "Cannot abort transaction against ~A because there is no transaction in progress."
+		      database)))))
 
 (defun mark-transaction-committed (database)
   (when (and (transaction database)