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

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

diff --git a/src/standard-descriptions/list.lisp b/src/standard-descriptions/list.lisp
index 1d5737d..33e9ca2 100644 (file)
--- a/src/standard-descriptions/list.lisp
+++ b/src/standard-descriptions/list.lisp
@@ -1,7 +1,7 @@
 (in-package :lisp-on-lines)
 
 
 (in-package :lisp-on-lines)
 
 

-(define-layered-class list-attribute (standard-attribute)
+(define-layered-class list-attribute (define-description-attribute)

  ((item-args :initform nil :initarg :item :layered t :special t)))
 
 (define-layered-method display-attribute-value 
  ((item-args :initform nil :initarg :item :layered t :special t)))
 
 (define-layered-method display-attribute-value 


@@ -12,8 +12,7 @@
     (loop 
        :for cons :on list
        :do (let ((item (first cons
     (loop 
        :for cons :on list
        :do (let ((item (first cons

-)))
-                (break "Display T ~A" item) 
+))) 

             (dletf (((attribute-object attribute) item))
               (apply #'display *display* item (slot-value attribute 'item-args))
               (unless (endp (cdr cons))
             (dletf (((attribute-object attribute) item))
               (apply #'display *display* item (slot-value attribute 'item-args))
               (unless (endp (cdr cons))