Method: (INIT-ENVIRONMENT (EQL 'DB-ENV) T T T)

Source

(defmethod init-environment ((class (eql 'db-env)) handle
			     buf-reader buf-writer)
  (declare (ignore buf-reader buf-writer))
  (make-instance class :handle handle))