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.