23 Oct
2008
23 Oct
'08
10:49 p.m.
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)