diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-04 22:17:38 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-04 22:17:38 -0700 |
| commit | ea0adb3ef8386bd50fee2bea5dba3ce091378227 (patch) | |
| tree | ae7a34bdded9e4104e2c607bb3eec06638cdf726 /src/connection.lisp | |
| parent | ca7e77fa48c7635aa9afbc7406b42f9be5063438 (diff) | |
| download | consfigurator-ea0adb3ef8386bd50fee2bea5dba3ce091378227.tar.gz | |
RUN, MRUN: add missing fresh line when :INFORM
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
| -rw-r--r-- | src/connection.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 50156d3..83f60ba 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -338,7 +338,7 @@ case return only the exit code." (multiple-value-bind (err exit) (connection-run *connection* cmd input) (let ((out (readfile stdout))) - (when inform (informat 1 "~{ ~A~%~}" (lines out))) + (when inform (informat 1 "~&~{ ~A~%~}" (lines out))) (if (or may-fail (= exit 0)) (if for-exit exit (values out err exit)) (error 'run-failed @@ -360,7 +360,7 @@ start with RUN." (informat 3 "~&MRUN ~A" cmd) (multiple-value-bind (out exit) (connection-run *connection* cmd input) - (when inform (informat 1 "~{ ~A~%~}" (lines out))) + (when inform (informat 1 "~&~{ ~A~%~}" (lines out))) (if (or may-fail (= exit 0)) (if for-exit exit (values out exit)) (error 'run-failed |