Function: TXN-SUPPORT-FOR-HANDLE

Source

(defun txn-support-for-handle (handle)
  (let ((env (make-instance 'db-env
			    :handle (%db-get-env handle))))
    (if (member :init-txn (db-env-open-flags env))
	t
	nil)))