((instance :accessor instance :initarg :instance :initform nil)))
(defcomponent mewa-viewer (mewa-object-presentation)
((instance :accessor instance :initarg :instance :initform nil)))
(defcomponent mewa-viewer (mewa-object-presentation)
(dolist (slot (slots pres))
(<:tr :class "presentation-slot-row"
(present-slot-as-row pres slot))))
(dolist (slot (slots pres))
(<:tr :class "presentation-slot-row"
(present-slot-as-row pres slot))))
(defmethod present-slot-as-row ((pres mewa-object-presentation) (slot slot-presentation))
(<:td :class "presentation-slot-label" (<:as-html (label slot)))
(defmethod present-slot-as-row ((pres mewa-object-presentation) (slot slot-presentation))
(<:td :class "presentation-slot-label" (<:as-html (label slot)))
(defmacro def-search-expr (((self criteria-type)) (model-expr &body body))
`(defmethod search-expr ((,self ,criteria-type) instance)
(defmacro def-search-expr (((self criteria-type)) (model-expr &body body))
`(defmethod search-expr ((,self ,criteria-type) instance)