Changeset 14460

Timestamp:

Nov 29, 2010, 6:43:51 PM (14 years ago)

Author:

Gary Byers

Message:

In FD-STREAM-ADVANCE, use FD-INPUT-AVAILABLE-P (not STREAM-LISTEN)
to determine whether we can read without blocking.
See ticket:786.

File:

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

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

@@ -5603 +5603 @@
           (io-buffer-count buf) 0
           (ioblock-eof ioblock) nil)
-      (when (or read-p (setq avail (stream-listen s)))
+      (when (or read-p (setq avail (fd-input-available-p fd 0)))
         (unless avail
           (let* ((deadline (ioblock-deadline ioblock))