X-Git-Url: http://dolda2000.com/gitweb/?p=lisp-utils.git;a=blobdiff_plain;f=common-net.lisp;h=ffe7a2d75a01cab9658f12fe4b7b583ae66e5058;hp=fadf08075ff020aba67506405d06819108f951fd;hb=46ab5dc9cbab6096c81b7735a0e4751761c22c2c;hpb=c1b2df2c47ee72fad171b5df248082bd050023bf

diff --git a/common-net.lisp b/common-net.lisp
index fadf080..ffe7a2d 100644
--- a/common-net.lisp
+++ b/common-net.lisp
@@ -246,7 +246,7 @@
   (declare (type stream-socket socket))
   (unless (eq (stream-socket-mode socket) :character)
     (error 'stream-mode-error :stream socket :socket socket :expected-mode :character))
-  (case (fill-char-buffer socket 1)
+  (case (fill-char-buffer socket 1 t)
     ((nil) (return-from gray-stream-read-char-no-hang :eof))
     ((:wait) (return-from gray-stream-read-char-no-hang nil)))
   (with-slots (char-buffer char-read-pos) socket