[iolib-devel] Problem with peek-char

[Andrey Moskvitin]

Hi,

I am trying to rewrite the work with sockets in a swank via IOLib and found
that call peek-char produces an error "No uncommitted character to unread"
(see %stream-unread-char in a gray-stream-methods.lisp) .
I did not understand deep, but noticed that after the following simple
modifications:

diff --git a/src/streams/gray/gray-stream-methods.lisp
b/src/streams/gray/gray-stream-methods.lisp
index d0cdbce..43f4694 100644
--- a/src/streams/gray/gray-stream-methods.lisp
+++ b/src/streams/gray/gray-stream-methods.lisp
@@ -320,7 +320,6 @@
                    (unread-index ibuf-unread-index-of)
                    (ef external-format-of))
       stream
-    (setf unread-index (iobuf-start ib))
     (let* ((str nil) (ret nil)
            (encoding (babel:external-format-encoding ef))
            (max-octets-per-char

system begins to work normally


Moskvitin Andrey
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/iolib-devel/attachments/20100317/2e39caf4/attachment.html>