Commit 02b8c6c6 authored by Elias Pipping's avatar Elias Pipping
Browse files

CLISP, clasp: Simplify %system/%run-program logic

parent a7723731
......@@ -1169,8 +1169,7 @@ or an indication of failure via the EXIT-CODE of the process"
(setf force-shell t)))
(flet ((default (x xp output) (cond (xp x) ((eq output :interactive) :interactive))))
(apply (if (or force-shell
#+(or clasp clisp) (or (not ignore-error-status) t)
#+clisp (member error-output '(:interactive :output))
#+(or clasp clisp) t
;; A race condition in ECL <= 16.0.0 prevents using ext:run-program
#+ecl #.(if-let (ver (parse-version (lisp-implementation-version)))
(lexicographic<= '< ver '(16 0 1)))
Supports Markdown
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