(when (zerop (decf (transaction-level database)))
(execute-command "COMMIT" :database database)
(map nil #'funcall (commit-hooks (transaction database))))
- (warn 'clsql-simple-warning
+ (warn 'sql-warning
:format-control "Cannot commit transaction against ~A because there is no transaction in progress."
:format-arguments (list database))))
-(defmethod database-abort-transaction (database)
+(defmethod database-abort-transaction ((database database))
(if (> (transaction-level database) 0)
(when (zerop (decf (transaction-level database)))
(unwind-protect
(execute-command "ROLLBACK" :database database)
(map nil #'funcall (rollback-hooks (transaction database)))))
- (warn 'clsql-simple-warning
+ (warn 'sql-warning
:format-control "Cannot abort transaction against ~A because there is no transaction in progress."
:format-arguments (list database))))