Loading test/test-run-program-unix.script +0 −12 Original line number Diff line number Diff line Loading @@ -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) Loading uiop/run-program.lisp +2 −1 Original line number Diff line number Diff line Loading @@ -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) Loading Loading
test/test-run-program-unix.script +0 −12 Original line number Diff line number Diff line Loading @@ -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) Loading
uiop/run-program.lisp +2 −1 Original line number Diff line number Diff line Loading @@ -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) Loading