Method: (DB-SEQU-OPEN DB T)

Source

(defmethod db-sequ-open ((db db) key &key txn
			      initial-value
			      create exclusive threaded
			      seq-dec seq-inc seq-wrap)
  (let ((sequ (%bdb-sequ-create db))
	(ok))
    (unwind-protect
	 (progn
	   (%db-sequ-set-flags sequ
			       :seq-dec seq-dec
			       :seq-inc seq-inc
			       :seq-wrap seq-wrap)
	   (when initial-value
	     (%db-sequ-init-value sequ initial-value))
	   (%db-sequ-open sequ
			  txn
			  (cbuffer-data key) (cbuffer-size key)
			  :create create
			  :exclusive exclusive
			  :threaded threaded)
	   (setq ok
		 (initialize-sequence db sequ)))
      (unless ok
	(%db-sequ-close sequ)))))