tons of small changes to bring this up to date with maxclaims 2.0
[clinton/lisp-on-lines.git] / src / standard-descriptions / list.lisp
index 1d5737d..0beb994 100644 (file)
@@ -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))