Changeset 8487

Timestamp:

Feb 14, 2008, 1:09:27 AM (17 years ago)

Author:

Gary Byers

Message:

MONITOR-EXTERNAL-PROCESS: wait up to 1 second (1000 milliseconds)
for input.

File:

• trunk/source/level-1/linux-files.lisp (modified) (1 diff)

trunk/source/level-1/linux-files.lisp

@@ -890 +890 @@
         (return))
       (when in-fd
-        (when (fd-input-available-p in-fd 0)
+        (when (fd-input-available-p in-fd 1000)
           (%stack-block ((buf 1024))
             (let* ((n (fd-read in-fd buf 1024)))