:format-control "Cannot commit transaction against ~A because there is no transaction in progress."
:format-arguments (list database))))
:format-control "Cannot commit transaction against ~A because there is no transaction in progress."
:format-arguments (list database))))