Function Transaction-In-Progress-P

Part of:

package cl-rdbms
( transaction-in-progress-p &optional (transaction *transaction*) )