From: Christophe R. <cr...@us...> - 2004-09-16 21:22:23
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4097/src/code Modified Files: Tag: character_branch fd-stream.lisp Log Message: 0.8.13.77.character.21: "No need to cry; it's just a scratch" Fix output-utf8-bytes. 'Twas broken. Index: fd-stream.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/fd-stream.lisp,v retrieving revision 1.46.4.5 retrieving revision 1.46.4.6 diff -u -d -r1.46.4.5 -r1.46.4.6 --- fd-stream.lisp 16 Sep 2004 09:33:46 -0000 1.46.4.5 +++ fd-stream.lisp 16 Sep 2004 21:22:14 -0000 1.46.4.6 @@ -406,9 +406,8 @@ (setf (fd-stream-obuf-tail fd-stream) (do* ((len (fd-stream-obuf-length fd-stream)) (sap (fd-stream-obuf-sap fd-stream)) - (tail (fd-stream-obuf-tail fd-stream)) - (space (- len tail))) - ((or (= start end) (< space 4)) tail) + (tail (fd-stream-obuf-tail fd-stream))) + ((or (= start end) (< (- len tail) 4)) tail) (let ((bits (char-code (aref string start)))) (incf tail (cond @@ -441,8 +440,7 @@ 4))) (incf start)))) (when (< start end) - (flush-output-buffer fd-stream) - (frob-output fd-stream string start end nil))) + (flush-output-buffer fd-stream))) (when flush-p (flush-output-buffer fd-stream)))) |