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