From: Fredrik Tolf <fredrik@dolda2000.com>
Date: Thu, 13 May 2010 14:13:58 +0000 (+0200)
Subject: COMMON-NET: Don't actually hang on READ-CHAR-NO-HANG...
X-Git-Url: http://git.dolda2000.com/gitweb/?a=commitdiff_plain;h=46ab5dc9cbab6096c81b7735a0e4751761c22c2c;p=lisp-utils.git

COMMON-NET: Don't actually hang on READ-CHAR-NO-HANG...
---

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