(defmethod database-abort-transaction :before ((database database))
(unless (is-database-open database)
(signal-closed-database-error database)))
(defmethod database-abort-transaction :before ((database database))
(unless (is-database-open database)
(signal-closed-database-error database)))