Changeset 14437


Ignore:
Timestamp:
Nov 19, 2010, 7:38:20 PM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

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

    r14397 r14437  
    56365636 
    56375637(defun fd-stream-listen (s ioblock)
    5638   (declare (ignore s))
    5639   (unread-data-available-p (ioblock-device ioblock)))
     5638  (if (interactive-stream-p s)
     5639    (unread-data-available-p (ioblock-device ioblock))
     5640    (not (fd-stream-eofp s ioblock))))
    56405641
    56415642(defun fd-stream-close (s ioblock)
Note: See TracChangeset for help on using the changeset viewer.