Changeset 14460


Ignore:
Timestamp:
Nov 30, 2010, 2:43:51 AM (9 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r14437 r14460  
    56035603          (io-buffer-count buf) 0
    56045604          (ioblock-eof ioblock) nil)
    5605       (when (or read-p (setq avail (stream-listen s)))
     5605      (when (or read-p (setq avail (fd-input-available-p fd 0)))
    56065606        (unless avail
    56075607          (let* ((deadline (ioblock-deadline ioblock))
Note: See TracChangeset for help on using the changeset viewer.