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