(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