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