(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
(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)
(let ((db (gensym "db-")))
`(let ((,db ,database))
(unwind-protect
- (progn
+ (prog2
(database-start-transaction ,db)
- ,@body
+ (progn
+ ,@body)
(mark-transaction-committed ,db))
(if (eq (transaction-status (transaction ,db)) :committed)
(database-commit-transaction ,db)