aboutsummaryrefslogtreecommitdiff
path: root/lib/running.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-09-15 16:12:32 -0500
committerColin Okay <colin@cicadas.surf>2022-09-15 16:12:32 -0500
commiteceb405b6ad0e5d4e094345c873a7d69a6bb5c35 (patch)
treebc86297cd7a09bcfdb92d86c1141c05fa275d446 /lib/running.lisp
parent6e8edfe8ab7d1902bdfa54fe83d38a61a35a3f15 (diff)
Modify: command output now uses read-charHEADmain
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))))))