(funcall (attribute-label-formatter attribute) (attribute-label attribute))))
(define-layered-function display-attribute-value (attribute)
(funcall (attribute-label-formatter attribute) (attribute-label attribute))))
(define-layered-function display-attribute-value (attribute)
(define-display :around ((description t) (display null) object)
(with-output-to-string (*standard-output*)
(define-display :around ((description t) (display null) object)
(with-output-to-string (*standard-output*)