Function: DB-ENV-OPEN

Source

(defun db-env-open (db-home &key
		    (mode 0)
		    rpc-client
		    init-cdb init-txn init-log init-lock
		    init-mpool init-rep
		    recover recover-fatal
		    use-environ
		    use-environ-root
		    create lockdown private
		    buf-reader buf-writer
		    )
  (let ((env (bdb-env-create :rpc-client rpc-client)))
    (%db-env-open env db-home mode
		 :init-cdb init-cdb :init-txn init-txn
		 :init-log init-log :init-lock init-lock
		 :init-mpool init-mpool :init-rep init-rep
		 :recover recover :recover-fatal recover-fatal
		 :use-environ use-environ :use-environ-root use-environ-root
		 :create create :lockdown lockdown :private private)
    (init-environment (if (and (functionp buf-reader )
			    (functionp buf-writer))
		       'db-ext-env
		       'db-env)
		      env buf-reader buf-writer)))