Commit 61c57d2b authored by Elias Pipping's avatar Elias Pipping Committed by Robert Goldman
Browse files

%system: Guard against passing :stream for input/output/error-output

parent 50b839d3
......@@ -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
Supports Markdown
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