From 46ab5dc9cbab6096c81b7735a0e4751761c22c2c Mon Sep 17 00:00:00 2001 From: Fredrik Tolf Date: Thu, 13 May 2010 16:13:58 +0200 Subject: [PATCH] COMMON-NET: Don't actually hang on READ-CHAR-NO-HANG... --- common-net.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.11.0