IN-TRANSACTION-P — A predicate for testing whether a transaction is currently in progress.
Function
databaseA database object. This will default to the value of *default-database*.
resultA Boolean.
A predicate to test whether
database, which defaults to
*default-database*, is currently within the
scope of a transaction.