From a0ed21514d73aa691d6e59ff4a4479d699b55efa Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Fri, 11 May 2012 15:22:50 -0400 Subject: [PATCH] Improve debugging message. --- run.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/run.lisp b/run.lisp index 46f46a3..a3f49af 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) -- GitLab