(define-layered-method attribute-label-formatter :around (attribute)
(or (slot-value attribute 'label-formatter)
(attribute-value (find-attribute (attribute-description attribute) 'label-formatter))
(define-layered-method attribute-label-formatter :around (attribute)
(or (slot-value attribute 'label-formatter)
(attribute-value (find-attribute (attribute-description attribute) 'label-formatter))