Commit 0468dba6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Merge branch 'normalize-system-command'

parents 91592aa5 47020a1b
...@@ -377,20 +377,10 @@ or whether it's already taken care of by the implementation's underlying run-pro ...@@ -377,20 +377,10 @@ or whether it's already taken care of by the implementation's underlying run-pro
(defun %normalize-system-command (command) ;; helper for %USE-SYSTEM (defun %normalize-system-command (command) ;; helper for %USE-SYSTEM
(etypecase command (etypecase command
(string (string command)
(os-cond
((os-windows-p)
#+(or allegro clisp ecl)
(strcat "cmd" " /c " command)
#-(or allegro clisp ecl) command)
(t command)))
(list (escape-shell-command (list (escape-shell-command
(os-cond (os-cond
((os-unix-p) (cons "exec" command)) ((os-unix-p) (cons "exec" command))
((os-windows-p)
#+(or allegro clisp ecl sbcl)
(list* "cmd" "/c" command)
#-(or allegro clisp ecl sbcl) command)
(t command)))))) (t command))))))
(defun %redirected-system-command (command in out err directory) ;; helper for %USE-SYSTEM (defun %redirected-system-command (command in out err directory) ;; helper for %USE-SYSTEM
......
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