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