aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/main.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/main.lisp b/src/main.lisp
index c7a2421..ce73d78 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -36,15 +36,15 @@ have passed or CHECK returns non-nil."
(command
&key
(shell-name (parent-process-name))
- (await-output-p 0.5)
+ (await-output-p 0.8)
(output-stream *standard-output*))
(let ((shell
(uiop:launch-program shell-name :input :stream :output :stream)))
(write-line command (uiop:process-info-input shell))
(finish-output (uiop:process-info-input shell))
(when await-output-p
- (wait-until (:timeout await-output-p)
- (listen (uiop:process-alive-p shell)))
+ (wait-until (:timeout await-output-p :poll-every 0.005)
+ (listen (uiop:process-info-output shell)))
(loop while (listen (uiop:process-info-output shell))
do (princ (read-line (uiop:process-info-output shell)) output-stream)
(terpri output-stream)))))