+(define-layered-method display-html-attribute-value
+ (object (attribute list-attribute))
+ (let ((val (attribute-value attribute)))
+ (when (listp val)
+ (<:ul
+ (arnesi:dolist* (item (attribute-value attribute))
+ (<:li (apply #'display *display* item (slot-value attribute 'item-args))))))))
\ No newline at end of file