Changeset 7994


Ignore:
Timestamp:
Jan 4, 2008, 5:27:17 AM (12 years ago)
Author:
gz
Message:

add stream-eof-transient-p so can be specialized by streams that aren't fd-based

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/event-ide/ccl/level-1/l1-readloop-lds.lisp

    r7969 r7994  
    198198(defparameter *quit-on-eof* nil)
    199199
     200(defmethod stream-eof-transient-p (stream)
     201  (let ((fd (stream-device stream :input)))
     202    (and fd (eof-transient-p fd))))
     203
    200204;;; This is the part common to toplevel loop and inner break loops.
    201205(defun read-loop (&key (input-stream *standard-input*)
     
    226230                  (if (and (not *batch-flag*)
    227231                           (not *quit-on-eof*)
    228                            (eof-transient-p (stream-device input-stream :input)))
     232                           (stream-eof-transient-p input-stream))
    229233                    (progn
    230234                      (stream-clear-input input-stream)
Note: See TracChangeset for help on using the changeset viewer.