From c610b4d57698f708054c1d7431fee9da2731379c Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Fri, 28 Oct 2005 12:11:47 +0000 Subject: [PATCH] 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. --- src/code/fd-stream.lisp | 4 +--- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index 3609191..945790e 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -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. diff --git a/version.lisp-expr b/version.lisp-expr index fe47a93..14139e9 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.6.5" +"0.9.6.6" -- 1.7.10.4