Changeset 7994

Timestamp:

Jan 3, 2008, 9:27:17 PM (17 years ago)

Author:

gz

Message:

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

File:

• branches/event-ide/ccl/level-1/l1-readloop-lds.lisp (modified) (2 diffs)

branches/event-ide/ccl/level-1/l1-readloop-lds.lisp

@@ -198 +198 @@
 (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*)
@@ -226 +230 @@
                   (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)