diff --git a/run.lisp b/run.lisp index 46f46a3cf4643cf7eabfa480d36fc12c26eb0dfb..a3f49afbd24e9353454fa321885d952dd27bf413 100644 --- a/run.lisp +++ b/run.lisp @@ -70,7 +70,7 @@ :ignore-error-status t :output output :host host) (error-behaviour on-error)))) (when show - (format *trace-output* "; ~S~%" cmd)) + (format *trace-output* "; ~A~%" (print-process-spec cmd))) (process-time))) (defun run/s (cmd &rest keys &key on-error time show host)