(display-attribute-label attribute))
(display-attribute-value attribute))
-(define-layered-method display-attribute :around
- ((attribute standard-attribute))
- (funcall-with-layer-context
+(define-layered-method display-attribute :around ((attribute standard-attribute))
+ (with-attribute-context (attribute)
+ (call-next-method))
+ #+nil(funcall-with-layer-context
(modify-layer-context (current-layer-context)
:activate (attribute-active-descriptions attribute)
:deactivate (attribute-inactive-descriptions attribute))
(define-display :around ((description t) (display null) object)
(with-output-to-string (*standard-output*)
- (call-next-layered-method description t object))
-)
+ (apply #'call-next-layered-method description t object args)))
+