Skip to content
Snippets Groups Projects
Commit 4dd361f7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

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

parent 182c5bd0
No related branches found
No related tags found
No related merge requests found
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
(unless (< 0 (run-shell-command "./bad-shell-command")) (unless (< 0 (run-shell-command "./bad-shell-command"))
(error "Failed to capture exit status indicating shell command failure.")) (error "Failed to capture exit status indicating shell command failure."))
#+asdf-unix #+os-unix
(progn (progn
(DBG "Testing good shell command in current directory via run-shell-command") (DBG "Testing good shell command in current directory via run-shell-command")
(unless (equal 0 (run-shell-command "./good-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." ...@@ -414,7 +414,7 @@ EXTERNAL-FORMAT for the stream passed to the OUTPUT processor."
process)))))) process))))))
(system-command (command) (system-command (command)
(etypecase command (etypecase command
(string (if (os-windows-p) (format nil "cmd /c ~A" command) command)) (string command)
(list (escape-shell-command (list (escape-shell-command
(if (os-unix-p) (cons "exec" command) command))))) (if (os-unix-p) (cons "exec" command) command)))))
(redirected-system-command (command out) (redirected-system-command (command out)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment