Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Ishimaru
asdf
Commits
30bea48c
Commit
30bea48c
authored
Nov 11, 2016
by
Elias Pipping
Browse files
Sort implementations alphabetically
parent
0291394e
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/run-program.lisp
View file @
30bea48c
...
...
@@ -1028,8 +1028,11 @@ or :error-output."
(
apply
'launch-program
(
%normalize-system-command
command
)
keys
)))))
#+
(
or
abcl
clasp
clisp
cormanlisp
ecl
gcl
genera
(
and
lispworks
os-windows
)
mkcl
xcl
)
(
let
((
%command
(
%redirected-system-command
command
input
output
error-output
directory
)))
#+
(
and
lispworks
os-windows
)
(
system:call-system
%command
:current-directory
directory
:wait
t
)
#+
abcl
(
ext:run-shell-command
%command
)
#+
(
or
clasp
ecl
)
(
let
((
*standard-input*
*stdin*
)
(
*standard-output*
*stdout*
)
(
*error-output*
*stderr*
))
(
ext:system
%command
))
#+
clisp
(
let
((
raw-exit-code
(
or
...
...
@@ -1040,14 +1043,11 @@ or :error-output."
(
if
(
minusp
raw-exit-code
)
(
-
128
raw-exit-code
)
raw-exit-code
))
#+
abcl
(
ext:run-shell-command
%command
)
#+
cormanlisp
(
win32:system
%command
)
#+
(
or
clasp
ecl
)
(
let
((
*standard-input*
*stdin*
)
(
*standard-output*
*stdout*
)
(
*error-output*
*stderr*
))
(
ext:system
%command
))
#+
gcl
(
system:system
%command
)
#+
genera
(
not-implemented-error
'%system
)
#+
(
and
lispworks
os-windows
)
(
system:call-system
%command
:current-directory
directory
:wait
t
)
#+
mcl
(
ccl::with-cstrs
((
%%command
%command
))
(
_system
%%command
))
#+
mkcl
(
mkcl:system
%command
)
#+
xcl
(
system:%run-shell-command
%command
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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