Changeset 14437

Timestamp:

Nov 19, 2010, 11:38:20 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

In FD-STREAM-LISTEN: by definition, LISTEN returns NIL when a
non-interactive stream is at eof.

File:

• trunk/source/level-1/l1-streams.lisp (modified) (1 diff)

trunk/source/level-1/l1-streams.lisp

@@ -5636 +5636 @@
   
 (defun fd-stream-listen (s ioblock)
-  (declare (ignore s))
-  (unread-data-available-p (ioblock-device ioblock)))
+  (if (interactive-stream-p s)
+    (unread-data-available-p (ioblock-device ioblock))
+    (not (fd-stream-eofp s ioblock))))
 
 (defun fd-stream-close (s ioblock)