Commit e5feddd3 authored by Elias Pipping's avatar Elias Pipping

Fix a warning

parent 799e15fd
......@@ -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)
......
......@@ -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)
......
Markdown is supported
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