Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
39f69317
Commit
39f69317
authored
Dec 12, 2016
by
Francois-Rene Rideau
Browse files
Add sbcl win32 feature test for run-program string
parent
504e4fd0
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/launch-program.lisp
View file @
39f69317
...
...
@@ -519,6 +519,14 @@ LAUNCH-PROGRAM returns a PROCESS-INFO object."
#+
os-unix
(
list
command
)
#+
os-windows
(
string
;; 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
)
(
nest
#+
sbcl
(
unless
(
find-symbol*
:escape-arguments
:sb-impl
nil
))
(
parameter-error
"~S doesn't support string commands on Windows on this lisp: ~S"
'launch-program
command
))
;; NB: We add cmd /c here. Behavior without going through cmd is not well specified
;; when the command contains spaces or special characters:
;; IIUC, the system will use space as a separator,
...
...
@@ -530,13 +538,7 @@ LAUNCH-PROGRAM returns a PROCESS-INFO object."
;; r15398 or later in 1.9 or later,
;; so that bug 858 is fixed http://trac.clozure.com/ccl/ticket/858
;; On SBCL, we assume the patch from fcae0fd (to be part of SBCL 1.3.13)
#+
(
or
clozure
sbcl
)
(
cons
"cmd"
(
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
sbcl
)
(
parameter-error
"~S doesn't support string commands on Windows on this lisp: ~S"
'launch-program
command
))
#+
(
or
clozure
sbcl
)
(
cons
"cmd"
(
strcat
"/c "
command
)))
#+
os-windows
(
list
#+
allegro
(
escape-windows-command
command
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment