(defmethod db-env-open-flags ((env db-env))
(let ((val (%db-env-get-open-flags env)))
(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 :auto-commit
:system-mem :create :threaded)))))Source Context