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
e5feddd3
Commit
e5feddd3
authored
Oct 02, 2016
by
Elias Pipping
Browse files
Fix a warning
parent
799e15fd
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/test-run-program-unix.script
View file @
e5feddd3
...
...
@@ -185,18 +185,6 @@
(with-open-file (output name :direction :output :if-exists :supersede)
(format output string)))
;; Wrapper that keeps us from special-casing CLISP since it
;; always requires :error-output :interactive to be set.
(defun %launch-program (command &rest named-pairs
&key (error-output nil error-output-set)
&allow-other-keys)
(declare (ignore error-output #-clisp error-output-set))
(let ((args (append (list command)
named-pairs
#+clisp (unless error-output-set
(list :error-output :interactive)))))
(apply #'launch-program args)))
;; Skips the test if terminate-process cannot be called
(defun my-terminate-process (&rest rest)
#+ecl (unless (find-symbol* '#:terminate-process :ext nil)
...
...
uiop/run-program.lisp
View file @
e5feddd3
...
...
@@ -471,7 +471,8 @@ implementation, when applicable, for creation of the output stream.
LAUNCH-PROGRAM returns a PROCESS-INFO object."
#-
(
or
abcl
allegro
clozure
cmucl
ecl
(
and
lispworks
os-unix
)
mkcl
sbcl
scl
)
(
progn
command
keys
input
output
error-output
directory
element-type
external-format
;; ignore
(
progn
command
keys
input
output
error-output
directory
element-type
external-format
if-input-does-not-exist
if-output-exists
if-error-output-exists
;; ignore
(
not-implemented-error
'launch-program
))
#+
allegro
(
when
(
some
#'
(
lambda
(
stream
)
...
...
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