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 cdef9d7..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))
 
     (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))
    (modify-layer-context (current-layer-context) 
                         :activate (attribute-active-descriptions attribute)
                         :deactivate (attribute-inactive-descriptions attribute))


@@ -117,8 +118,8 @@
 
 (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*)

-   (call-next-layered-method description t object))
-)              
+   (apply #'call-next-layered-method description t object args)))
+