From b263ded6f57264dd2b36e97790e825e085006882 Mon Sep 17 00:00:00 2001 From: Elias Pipping Date: Wed, 9 Nov 2016 15:14:29 +0000 Subject: [PATCH] Bug fix: Avoid ext:system on ECL >16.0.0 ext:system is a wrapper around ext:run-program that forces :output nil, which is not something we want. See also https://bugs.launchpad.net/asdf/+bug/1638870 --- uiop/run-program.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 1214a0d2..bb0f62ae 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -1017,9 +1017,13 @@ or :error-output." (%handle-if-does-not-exist input if-input-does-not-exist) (%handle-if-exists output if-output-exists) (%handle-if-exists error-output if-error-output-exists) - #+(or allegro clozure cmucl (and lispworks os-unix) sbcl scl) - (wait-process - (apply 'launch-program (%normalize-system-command command) keys)) + #+(or allegro clozure cmucl ecl (and lispworks os-unix) sbcl scl) + (let (#+ecl (version (parse-version (lisp-implementation-version)))) + (nest + #+ecl (unless (lexicographic<= '< version '(16 0 0))) + (return-from %system + (wait-process + (apply 'launch-program (%normalize-system-command command) keys))))) #+(or abcl clasp clisp cormanlisp ecl gcl genera (and lispworks os-windows) mkcl xcl) (let ((%command (%redirected-system-command command input output error-output directory))) #+(and lispworks os-windows) -- GitLab