Method: (DB-SEQU-OPEN DB-EXT T)

Source

(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