aboutsummaryrefslogtreecommitdiff
path: root/lib/running.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lib/running.lisp')
-rw-r--r--lib/running.lisp6
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))))))