(dletf (((attribute-object attribute) item))
(apply #'display *display* item (slot-value attribute 'item-args))
(unless (endp (cdr cons))
(dletf (((attribute-object attribute) item))
(apply #'display *display* item (slot-value attribute 'item-args))
(unless (endp (cdr cons))