Index: /branches/event-ide/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /branches/event-ide/ccl/level-1/l1-readloop-lds.lisp	(revision 7993)
+++ /branches/event-ide/ccl/level-1/l1-readloop-lds.lisp	(revision 7994)
@@ -198,4 +198,8 @@
 (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,5 +230,5 @@
                   (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)