(not (transaction-status (transaction database))))
(setf (transaction-status (transaction database)) :committed)))
(not (transaction-status (transaction database))))
(setf (transaction-status (transaction database)) :committed)))
"Starts a transaction in the database specified by DATABASE,
which is *DEFAULT-DATABASE* by default, and executes BODY within
that transaction. If BODY aborts or throws, DATABASE is rolled
"Starts a transaction in the database specified by DATABASE,
which is *DEFAULT-DATABASE* by default, and executes BODY within
that transaction. If BODY aborts or throws, DATABASE is rolled