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

diff --git a/src/standard-descriptions/list.lisp b/src/standard-descriptions/list.lisp
index 1d5737d..0beb994 100644
--- a/src/standard-descriptions/list.lisp
+++ b/src/standard-descriptions/list.lisp
@@ -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))