emacs completion-borne typo

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)))))