IN-TRANSACTION-P —
Function
(IN-TRANSACTION-P &KEY (DATABASE *DEFAULT-DATABASE*)) [function] =>
A predicate to test whether DATABASE, which defaults to *DEFAULT-DATABASE*, is currently within the scope of a transaction.