Commit e5feddd3 authored by Elias Pipping's avatar Elias Pipping
Browse files

Fix a warning

parent 799e15fd
Loading
Loading
Loading
Loading
+0 −12
Original line number Diff line number Diff line
@@ -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)
+2 −1
Original line number Diff line number Diff line
@@ -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)