From ba8308dab5fac1416f98d53a6cb25dc89f88cb25 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Wed, 23 Oct 2013 16:42:47 -0400
Subject: [PATCH] Try to avoid extraneous spaces in redirected command lines
 for the sake of Windows' CMD.EXE.

---
 uiop/run-program.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 0bff9588..1dc85b2c 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -736,10 +736,10 @@ It returns a process-info plist with possible keys:
                        (string (pathname spec))
                        (pathname spec)
                        ((eql :output)
-                        (assert (equal operator "2>"))
+                        (assert (equal operator " 2>"))
                         (return-from redirect '(" 2>&1"))))))
                (when pathname
-                 (list " " operator " "
+                 (list operator " "
                        (escape-shell-token (native-namestring pathname)))))))
       (multiple-value-bind (before after)
           (let ((normalized (%normalize-system-command command)))
@@ -748,7 +748,7 @@ It returns a process-info plist with possible keys:
                 (values (list normalized) ())))
         (reduce/strcat
          (append
-          before (redirect in "<") (redirect out ">") (redirect err "2>")
+          before (redirect in "<") (redirect out ">") (redirect err " 2>")
           (when (and directory (os-unix-p)) `("cd " (escape-shell-token directory) " ; "))
           after)))))
 
-- 
GitLab