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

Avoid mkcl:system on MKCL >1.1.9

parent 649b5588
Loading
Loading
Loading
Loading
+3 −2
Original line number Original line Diff line number Diff line
@@ -1017,11 +1017,12 @@ or :error-output."
    (%handle-if-does-not-exist input if-input-does-not-exist)
    (%handle-if-does-not-exist input if-input-does-not-exist)
    (%handle-if-exists output if-output-exists)
    (%handle-if-exists output if-output-exists)
    (%handle-if-exists error-output if-error-output-exists)
    (%handle-if-exists error-output if-error-output-exists)
    #+(or abcl allegro clozure cmucl ecl (and lispworks os-unix) sbcl scl)
    #+(or abcl allegro clozure cmucl ecl (and lispworks os-unix) mkcl sbcl scl)
    (let (#+(or abcl ecl) (version (parse-version (lisp-implementation-version))))
    (let (#+(or abcl ecl mkcl) (version (parse-version (lisp-implementation-version))))
      (nest
      (nest
       #+abcl (unless (lexicographic< '< version '(1 4 0)))
       #+abcl (unless (lexicographic< '< version '(1 4 0)))
       #+ecl (unless (lexicographic<= '< version '(16 0 0)))
       #+ecl (unless (lexicographic<= '< version '(16 0 0)))
       #+mkcl (unless (lexicographic<= '< version '(1 1 9)))
       (return-from %system
       (return-from %system
         (wait-process
         (wait-process
          (apply 'launch-program (%normalize-system-command command) keys)))))
          (apply 'launch-program (%normalize-system-command command) keys)))))