(defmethod database-commit-transaction (database)
(if (> (transaction-level database) 0)
(when (zerop (decf (transaction-level database)))
(defmethod database-commit-transaction (database)
(if (> (transaction-level database) 0)
(when (zerop (decf (transaction-level database)))