X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/4644082451f92f7a060e47be6b9967acf8412c7f..ddf67d6be45e1ea2d58aef8cceeba26f73ed1a0c:/src/standard-descriptions/list.lisp

diff --git a/src/standard-descriptions/list.lisp b/src/standard-descriptions/list.lisp
index 1d5737d..33e9ca2 100644
--- a/src/standard-descriptions/list.lisp
+++ b/src/standard-descriptions/list.lisp
@@ -1,7 +1,7 @@
 (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 
@@ -12,8 +12,7 @@
     (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))