From 4dd361f71cd2e824eeda8ddb006fdbd1706430fb Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 16 Sep 2013 10:02:57 -0400
Subject: [PATCH] Another run-program tweak for Windows (untested!), plus test
 tweak.

---
 test/test-run-program.script | 2 +-
 uiop/run-program.lisp        | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/test-run-program.script b/test/test-run-program.script
index 98a74c5da..52934f6b4 100644
--- a/test/test-run-program.script
+++ b/test/test-run-program.script
@@ -19,7 +19,7 @@
 (unless (< 0 (run-shell-command "./bad-shell-command"))
   (error "Failed to capture exit status indicating shell command failure."))
 
-#+asdf-unix
+#+os-unix
 (progn
   (DBG "Testing good shell command in current directory via run-shell-command")
   (unless (equal 0 (run-shell-command "./good-shell-command"))
diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 3309d5bb4..5e2693946 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -414,7 +414,7 @@ EXTERNAL-FORMAT for the stream passed to the OUTPUT processor."
                              process))))))
              (system-command (command)
                (etypecase command
-                 (string (if (os-windows-p) (format nil "cmd /c ~A" command) command))
+                 (string command)
                  (list (escape-shell-command
                         (if (os-unix-p) (cons "exec" command) command)))))
              (redirected-system-command (command out)
-- 
GitLab