diff options
| -rw-r--r-- | src/main.lisp | 6 |
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))))) |