projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9722: Document the FDML.
[clsql.git]
/
sql
/
transaction.lisp
diff --git
a/sql/transaction.lisp
b/sql/transaction.lisp
index bf368c007d8b8aaee8fbfe6fe47645d6876274db..be3e6d8fdd15c2694299b991036734d09690e189 100644
(file)
--- 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
(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
(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
(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)
(defun mark-transaction-committed (database)
(when (and (transaction database)