Commit 47020a1b authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Simplify %normalize-system-command

Changes in launch-program command normalization make
some of the complexity in %normalize-system-command redundant.
parent 81e4f08d
......@@ -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
......
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