(in-package :it.bese.ucw) (defslot-presentation clsql-wall-time-slot-presentation () () (:type-name clsql-sys:wall-time)) (defmethod present-slot ((slot clsql-wall-time-slot-presentation) instance) (<:as-html (presentation-slot-value slot instance))) (defslot-presentation mewa-relation-slot-presentation () ((slot-name :accessor slot-name :initarg :slot-name) (foreign-instance :accessor foreign-instance) (editablep :initarg :editablep :accessor editablep :initform :inherit)) (:type-name relation)) (defmethod present-relation (( slot mewa-relation-slot-presentation) instance) (when (foreign-instance slot) (when (eql (editablep slot) :inherit) (setf (editablep slot) (editablep (parent slot)))) (flet ((render-slot () (