Fix Gray stream method STREAM-LISTEN

sionescu · Aug 5, 2020 · dac715c · dac715c
1 parent 855bfe6
commit dac715c
Showing 1 changed file with 4 additions and 3 deletions.
diff --git 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))))
 
 
 ;;;-------------------------------------------------------------------------