(defmethod db-sequ-open ((db db-ext) key &key txn
initial-value
create exclusive threaded
seq-dec seq-inc seq-wrap)
(with-cbuffer key-buffer
(funcall (buf-writer db) key key-buffer)
(call-next-method db key-buffer
: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