Commit 4dd361f7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Another run-program tweak for Windows (untested!), plus test tweak.

parent 182c5bd0
......@@ -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"))
......
......@@ -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)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment