:cols (columns slot))
(if (escape-html-p slot)
(<:as-html (presentation-slot-value slot instance))
- (<:as-is (presentation-slot-value slot instance))
- )))
+ (<:as-is (presentation-slot-value slot instance)))))
(defcomponent mewa-slot-presentation ()
(setf (component.place pres) (component.place (ucw::parent slot))))
(when i (<ucw:render-component :component pres))))
-
-
(defmethod present-slot ((slot mewa-relation-slot-presentation) instance)
(present-relation slot instance))