Loading uiop/run-program.lisp +3 −2 Original line number Original line Diff line number Diff line Loading @@ -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))))) Loading Loading
uiop/run-program.lisp +3 −2 Original line number Original line Diff line number Diff line Loading @@ -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))))) Loading