[mcclim-cvs] CVS mcclim

[thenriksen]

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