diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-12 20:27:30 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-12 20:27:30 -0700 |
commit | c76ba9dfc3f6dacbdb46369f676f29cad56d6b08 (patch) | |
tree | 46a0d0c33b0a379b4f31e8a072c620c019db3915 /src/connection.lisp | |
parent | 70e150fbbb648bf8d459380304a77a84ab5b0353 (diff) | |
download | consfigurator-c76ba9dfc3f6dacbdb46369f676f29cad56d6b08.tar.gz |
RUN/MRUN: when :INFORM, also show the command which was run
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 2b03e44..c666de3 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -345,7 +345,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~%~{ ~A~%~}" cmd (lines out))) (if (or may-fail (= exit 0)) (if for-exit exit (values out err exit)) (error 'run-failed @@ -367,7 +367,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~%~{ ~A~%~}" cmd (lines out))) (if (or may-fail (= exit 0)) (if for-exit exit (values out exit)) (error 'run-failed |