[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv11017

Modified Files:
	stream-output.lisp 
Log Message:
SEOS-WRITE-STRING fix wrt. zero-length strings from Mike Watters.


--- /project/mcclim/cvsroot/mcclim/stream-output.lisp	2008/04/15 19:28:04	1.62
+++ /project/mcclim/cvsroot/mcclim/stream-output.lisp	2008/10/23 20:49:58	1.63
@@ -287,7 +287,9 @@
 						   :text-style text-style)
 	       while (<= sub-width delta)
 	       finally (return (1- i)))))
-  
+      (when (eql end 0)
+        (return-from seos-write-string))
+      
       (with-slots (baseline height vspace) stream
 	(multiple-value-bind (cx cy) (stream-cursor-position stream)
 	  (when (> new-baseline baseline)