(defmethod db-sequ-open ((db db-txn) key &key txn
initial-value
create exclusive threaded
seq-dec seq-inc seq-wrap)
(with-txn (txn (db-get-env db) :txn txn)
(call-next-method db key
:txn txn :initial-value initial-value
:create create
:exclusive exclusive
:threaded threaded
:seq-dec seq-dec
:seq-inc seq-inc
:seq-wrap seq-wrap)))Source Context