diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-09-15 16:12:32 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-09-15 16:12:32 -0500 |
| commit | eceb405b6ad0e5d4e094345c873a7d69a6bb5c35 (patch) | |
| tree | bc86297cd7a09bcfdb92d86c1141c05fa275d446 | |
| parent | 6e8edfe8ab7d1902bdfa54fe83d38a61a35a3f15 (diff) | |
| -rw-r--r-- | lib/running.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/running.lisp b/lib/running.lisp index e4f9d63..f168135 100644 --- a/lib/running.lisp +++ b/lib/running.lisp @@ -61,11 +61,9 @@ printed to OUTPUT-STREAM. " (listen shell-err) (listen shell-output))) when (listen shell-output) - do (princ (read-line shell-output) output-stream) - (terpri output-stream) + do (princ (read-char shell-output) output-stream) else - do (princ (read-line shell-err) error-stream) - (terpri error-stream)))))) + do (princ (read-char shell-err) error-stream)))))) |