From: Juho S. <js...@us...> - 2005-10-28 12:11:58
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20657/src/code Modified Files: fd-stream.lisp Log Message: 0.9.6.6: The FD-STREAM-READ-N-CHARACTERS/FOO for variable-width encodings never read more than one character, do the FAST-READ-CHAR buffer never got populated. Index: fd-stream.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/fd-stream.lisp,v retrieving revision 1.85 retrieving revision 1.86 diff -u -d -r1.85 -r1.86 --- fd-stream.lisp 28 Oct 2005 01:25:20 -0000 1.85 +++ fd-stream.lisp 28 Oct 2005 12:11:47 -0000 1.86 @@ -1205,9 +1205,7 @@ (error 'end-of-file :stream stream) (return-from ,in-function total-copied))) (setf head (fd-stream-ibuf-head stream)) - (setf tail (fd-stream-ibuf-tail stream))) - (when (plusp total-copied) - (return-from ,in-function total-copied))) + (setf tail (fd-stream-ibuf-tail stream)))) (setf (fd-stream-ibuf-head stream) head) ;; Maybe we need to refill the stream buffer. (cond ( ;; If there were enough data in the stream buffer, we're done. |