(defmethod db-env-txn-begin ((env db-env) &key parent no-sync not-durable no-wait sync) (make-instance 'txn :handle (%db-env-txn-begin env parent :txn-no-sync no-sync :txn-not-durable not-durable :txn-no-wait no-wait :txn-sync sync)))