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
772330cd
Commit
772330cd
authored
Nov 11, 2016
by
Elias Pipping
Browse files
Only call %handle-if-* once
parent
30bea48c
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/run-program.lisp
View file @
772330cd
...
...
@@ -1012,11 +1012,8 @@ or :error-output."
error-output
if-error-output-exists
&allow-other-keys
)
"A portable abstraction of a low-level call to libc's system()."
(
declare
(
ignorable
directory
keys
))
;; see comments for these functions
(
%handle-if-does-not-exist
input
if-input-does-not-exist
)
(
%handle-if-exists
output
if-output-exists
)
(
%handle-if-exists
error-output
if-error-output-exists
)
(
declare
(
ignorable
keys
directory
input
if-input-does-not-exist
output
if-output-exists
error-output
if-error-output-exists
))
#+
(
or
abcl
allegro
clozure
cmucl
ecl
(
and
lispworks
os-unix
)
mkcl
sbcl
scl
)
(
let
(
#+
(
or
abcl
ecl
mkcl
)
(
version
(
parse-version
(
lisp-implementation-version
))))
(
nest
...
...
@@ -1028,6 +1025,10 @@ 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
)))
;; see comments for these functions
(
%handle-if-does-not-exist
input
if-input-does-not-exist
)
(
%handle-if-exists
output
if-output-exists
)
(
%handle-if-exists
error-output
if-error-output-exists
)
#+
abcl
(
ext:run-shell-command
%command
)
#+
(
or
clasp
ecl
)
(
let
((
*standard-input*
*stdin*
)
(
*standard-output*
*stdout*
)
...
...
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