diff options
author | Colin Okay <okay@toyful.space> | 2022-02-11 16:02:12 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-02-11 16:02:12 -0600 |
commit | b05761610ebe7f31f172cc421c22738295f99931 (patch) | |
tree | 746dd4cb7fa4cdc8c8fd1d073044b22712b1d4fb /src/main.lisp | |
parent | eec2a595bfc0c5ef7c0b215e446dc7cc33b9fcb6 (diff) |
emacs completion-borne typo
Diffstat (limited to 'src/main.lisp')
-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))))) |