On Thu, 2010-03-25 at 12:53 +0300, Andrey Moskvitin wrote:
Hi,
I'm not sure that this is a bug.
Yes, I sorted out problem more deeply and concluded that in stream-read-char required following changes:
diff --git a/src/streams/gray/gray-stream-methods.lisp b/src/streams/gray/gray-stream-methods.lisp index 49c2eb1..45a25d1 100644 --- a/src/streams/gray/gray-stream-methods.lisp +++ b/src/streams/gray/gray-stream-methods.lisp @@ -332,7 +332,8 @@ (return* :eof)))) (cond ((zerop (iobuf-length ib)) (iobuf-reset ib)
(fill-buf-or-eof))
(fill-buf-or-eof)(setf unread-index (iobuf-start ib))) ;; Some encodings such as CESU or Java's modified UTF-8take ;; as much as 6 bytes per character. Make sure we have enough ;; space to collect read-ahead bytes if required.
Since the old code was very hard to read in order to understand what was the bug, I rewrote it. Could you please try again ?