(defmethod database-commit-transaction ((database database))
(with-slots (transaction transaction-level autocommit) database
(if (plusp transaction-level)
(when (zerop (decf transaction-level))
(defmethod database-commit-transaction ((database database))
(with-slots (transaction transaction-level autocommit) database
(if (plusp transaction-level)
(when (zerop (decf transaction-level))