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