Changeset 8342

Timestamp:

Jan 28, 2008, 4:47:47 PM (17 years ago)

Author:

gz

Message:

add stream-eof-transient-p

File:

• trunk/source/level-1/l1-readloop-lds.lisp (modified) (2 diffs)

trunk/source/level-1/l1-readloop-lds.lisp

@@ -253 +253 @@
 (defparameter *quit-on-eof* nil)
 
+(defmethod stream-eof-transient-p (stream)
+  (let ((fd (stream-device stream :input)))
+    (and fd (eof-transient-p fd))))
+
 ;;; This is the part common to toplevel loop and inner break loops.
 (defun read-loop (&key (input-stream *standard-input*)
@@ -281 +285 @@
                   (if (and (not *batch-flag*)
                            (not *quit-on-eof*)
-                           (eof-transient-p (stream-device input-stream :input)))
+                           (stream-eof-transient-p input-stream))
                     (progn
                       (stream-clear-input input-stream)