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