<div>Hi,</div><div><br></div><div>I am trying to rewrite the work with sockets in a swank via IOLib and found </div><div>that call peek-char produces an error "No uncommitted character to unread" </div><div>(see %stream-unread-char in a gray-stream-methods.lisp) . </div>
<div>I did not understand deep, but noticed that after the following simple modifications:</div><div><br></div><div><div>diff --git a/src/streams/gray/gray-stream-methods.lisp b/src/streams/gray/gray-stream-methods.lisp</div>
</div><div><div>index d0cdbce..43f4694 100644</div><div>--- a/src/streams/gray/gray-stream-methods.lisp</div><div>+++ b/src/streams/gray/gray-stream-methods.lisp</div><div>@@ -320,7 +320,6 @@</div><div>                    (unread-index ibuf-unread-index-of)</div>
<div>                    (ef external-format-of))</div><div>       stream</div><div>-    (setf unread-index (iobuf-start ib))</div><div>     (let* ((str nil) (ret nil)</div><div>            (encoding (babel:external-format-encoding ef))</div>
<div>            (max-octets-per-char</div><div><br></div></div><div>system begins to work normally</div><div><br></div><div><br></div><div>Moskvitin Andrey</div>