From b05761610ebe7f31f172cc421c22738295f99931 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 11 Feb 2022 16:02:12 -0600 Subject: emacs completion-borne typo --- src/main.lisp | 6 +++--- 1 file 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))))) -- cgit v1.2.3