From eceb405b6ad0e5d4e094345c873a7d69a6bb5c35 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 15 Sep 2022 16:12:32 -0500 Subject: Modify: command output now uses read-char --- lib/running.lisp | 6 ++---- 1 file 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)))))) -- cgit v1.2.3