(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