Ignore:
Timestamp:
Jan 29, 2008, 12:47:47 AM (12 years ago)
Author:
gz
Message:

add stream-eof-transient-p

File:
1 edited

Legend:

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

    r8286 r8342  
    253253(defparameter *quit-on-eof* nil)
    254254
     255(defmethod stream-eof-transient-p (stream)
     256  (let ((fd (stream-device stream :input)))
     257    (and fd (eof-transient-p fd))))
     258
    255259;;; This is the part common to toplevel loop and inner break loops.
    256260(defun read-loop (&key (input-stream *standard-input*)
     
    281285                  (if (and (not *batch-flag*)
    282286                           (not *quit-on-eof*)
    283                            (eof-transient-p (stream-device input-stream :input)))
     287                           (stream-eof-transient-p input-stream))
    284288                    (progn
    285289                      (stream-clear-input input-stream)
Note: See TracChangeset for help on using the changeset viewer.