Method: (DB-OPEN-FLAGS DB)

Source

(defmethod db-open-flags ((db db))
  (let ((val (%db-open-flags db)))
    (with-flag-system (find-flag-system :bdb-flags)
      (flag-list val
		 :flags '(:init-cdb :init-lock :init-log
			  :init-mpool :init-rep :init-txn
			  :recover :recover-fatal
			  :use-environ :use-environ-root
			  :lockdown :private
			  :system-mem :create :auto-commit
			  :read-only :exclusive
			  :threaded)))))