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

Source

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