Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv26788
Modified Files: stream-output.lisp Log Message: Fixed output bug where :end-of-line-action is :wrap and there isn't room for even a single character.
Acts as :allow in this case, would infinitely recurse previously.
--- /project/mcclim/cvsroot/mcclim/stream-output.lisp 2006/12/10 23:35:12 1.61 +++ /project/mcclim/cvsroot/mcclim/stream-output.lisp 2008/04/15 19:28:04 1.62 @@ -305,7 +305,10 @@ (when (>= (+ cx width) margin) (ecase (stream-end-of-line-action stream) (:wrap - (setq split (find-split (- margin cx)))) + ;; Let's prevent infinite recursion if there isn't + ;; room for even a single character. + (setq split (max (find-split (- margin cx)) + (1+ start)))) (:scroll (scroll-horizontal stream width)) (:allow)))