Fix missing `without-special-symbol-access' in `funcall-with-attribute-context'

[clinton/lisp-on-lines.git] / src / standard-descriptions / t.lisp

diff --git a/src/standard-descriptions/t.lisp b/src/standard-descriptions/t.lisp
index 3256903..bc2c367 100644 (file)
--- a/src/standard-descriptions/t.lisp
+++ b/src/standard-descriptions/t.lisp
@@ -87,9 +87,10 @@
     (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))