((display-results-p :accessor display-results-p :initarg :display-results-p :initform nil)
(criteria-input :accessor criteria-input :initform "")
(new-criteria :accessor new-criteria :initform nil)))
(defmethod instance ((self mewa:mewa-presentation-search))
((display-results-p :accessor display-results-p :initarg :display-results-p :initform nil)
(criteria-input :accessor criteria-input :initform "")
(new-criteria :accessor new-criteria :initform nil)))
(defmethod instance ((self mewa:mewa-presentation-search))