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
Karsten Poeck
asdf
Commits
61c57d2b
Commit
61c57d2b
authored
Sep 06, 2017
by
Elias Pipping
Committed by
Robert Goldman
Oct 26, 2017
Browse files
%system: Guard against passing :stream for input/output/error-output
parent
50b839d3
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/run-program.lisp
View file @
61c57d2b
...
...
@@ -419,6 +419,9 @@ or whether it's already taken care of by the implementation's underlying run-pro
"A portable abstraction of a low-level call to libc's system()."
(
declare
(
ignorable
keys
directory
input
if-input-does-not-exist
output
if-output-exists
error-output
if-error-output-exists
))
(
when
(
member
:stream
(
list
input
output
error-output
))
(
parameter-error
"~S: ~S is not allowed as synchronous I/O redirection argument"
'run-program
:stream
))
#+
(
or
abcl
allegro
clozure
cmucl
ecl
(
and
lispworks
os-unix
)
mkcl
sbcl
scl
)
(
let
(
#+
(
or
abcl
ecl
mkcl
)
(
version
(
parse-version
...
...
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