+ (if (editablep slot)
+ (let ((callback (ucw::make-new-callback
+ (lambda (val)
+
+ (if (listp val)
+ (setf (presentation-slot-value slot instance) t)
+ (setf (presentation-slot-value slot instance) nil))))))
+ (<:input :type "hidden" :name callback :value "DEFAULT")
+ (<:input :type "checkbox"
+ :name callback
+ :checked (slot-value instance (slot-name slot))))
+ (<:as-html
+ (if (presentation-slot-value slot instance)
+ "YES"
+ "NO"))))