From dac715c81db55704db623d8b2cfc399ebcf6175f Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Tue, 4 Aug 2020 22:53:11 -0400 Subject: [PATCH] Fix Gray stream method STREAM-LISTEN --- src/streams/gray/gray-stream-methods.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/streams/gray/gray-stream-methods.lisp b/src/streams/gray/gray-stream-methods.lisp index d147f844..33635d53 100644 --- a/src/streams/gray/gray-stream-methods.lisp +++ b/src/streams/gray/gray-stream-methods.lisp @@ -261,9 +261,10 @@ (defmethod stream-listen ((stream dual-channel-gray-stream)) (let ((char (stream-read-char-no-hang stream))) - (cond ((characterp char) (stream-unread-char stream char) t) - ((eql :eof char) nil) - (t t)))) + (cond ((characterp char) + (stream-unread-char stream char) + t) + (t nil)))) ;;;-------------------------------------------------------------------------