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

Merge branch 'normalize-system-command'

parents 91592aa5 47020a1b
No related branches found
No related tags found
No related merge requests found
......@@ -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
(etypecase command
(string
(os-cond
((os-windows-p)
#+(or allegro clisp ecl)
(strcat "cmd" " /c " command)
#-(or allegro clisp ecl) command)
(t command)))
(string command)
(list (escape-shell-command
(os-cond
((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))))))
(defun %redirected-system-command (command in out err directory) ;; helper for %USE-SYSTEM
......
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