Commit 64196c30 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau Committed by Elias Pipping

Fix run-program on SBCL Win32

This requires a patch to sb-impl::prepare-args relative to sbcl 1.3.10.
parent 945c48d7
......@@ -362,12 +362,11 @@ for the implementation's underlying run-program function"
;; r15398 or later in 1.9 or later,
;; so that bug 858 is fixed http://trac.clozure.com/ccl/ticket/858
#+clozure (cons "cmd" (strcat "/c " command))
#+mkcl (list "cmd" "/c" command)
#+sbcl (list (%cmd-shell-pathname) "/c" command)
#+sbcl (cons (%cmd-shell-pathname) (strcat "/c " command))
;; NB: On other Windows implementations, this is utterly bogus
;; except in the most trivial cases where no quoting is needed.
;; Use at your own risk.
#-(or allegro clisp clozure mkcl sbcl) (list "cmd" "/c" command))
#-(or allegro clisp clozure sbcl) (list "cmd" "/c" command))
#+os-windows
(list
#+allegro (escape-windows-command command)
......@@ -974,7 +973,7 @@ or :error-output."
((os-unix-p) (cons "exec" command))
((os-windows-p)
#+(or allegro clisp ecl sbcl)
(cons (%cmd-shell-pathname) (cons "/c" command))
(list* (%cmd-shell-pathname) "/c" command)
#-(or allegro clisp ecl sbcl) command)
(t command))))))
......
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