(map nil #'funcall (commit-hooks transaction)))
(unwind-protect ;status is not :commited
(execute-command "ROLLBACK" :database database)
(map nil #'funcall (commit-hooks transaction)))
(unwind-protect ;status is not :commited
(execute-command "ROLLBACK" :database database)