+(defmethod ucw:client-value ((self base-attribute))
+ (attribute-value (object self) self))
+
+(defmethod (setf ucw:client-value) (value (attribute base-attribute))
+ (setf (attribute-value (object attribute) attribute) value))
+
+
+(defmethod render ((field base-attribute))
+ "this can only be used within a display-using-description call in the editor context,
+ it is a hack to integrate lol with ucw's new form stuff"
+ (call-next-method))
+
+ #+ (or)
+(LET ((value (attribute-value (object field) field)))
+ (<:as-html "asd" value)
+ (<:input
+ :NAME
+ (callback field)
+ :VALUE (escape-as-html value)
+ :TYPE
+ "text"
+ :ID
+ (DOM-ID FIELD)
+ :SIZE
+ (ucw::INPUT-SIZE FIELD)))
+
+
+
+(defdisplay
+ :in-layer editor ((string base-attribute) object)
+ (render string))
+
+