(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
(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))