diff --git a/uiop/launch-program.lisp b/uiop/launch-program.lisp index 8940c88633fe7420bf58ea589d7a2cb7c033493d..bbd5fdd559abb087b93b9225ed6a5e8643765e08 100644 --- a/uiop/launch-program.lisp +++ b/uiop/launch-program.lisp @@ -533,10 +533,10 @@ LAUNCH-PROGRAM returns a PROCESS-INFO object." (%handle-if-exists output if-output-exists) (%handle-if-exists error-output if-error-output-exists) #+(or abcl allegro clozure cmucl ecl (and lispworks os-unix) mkcl sbcl scl) - (let* ((%command (%normalize-command command)) - (%input (%normalize-io-specifier input :input)) - (%output (%normalize-io-specifier output :output)) - (%error-output (%normalize-io-specifier error-output :error-output)) + (let* ((command (%normalize-command command)) + (input (%normalize-io-specifier input :input)) + (output (%normalize-io-specifier output :output)) + (error-output (%normalize-io-specifier error-output :error-output)) #+(and allegro os-windows) (interactive (%interactivep input output error-output)) (process* @@ -546,18 +546,18 @@ LAUNCH-PROGRAM returns a PROCESS-INFO object." (apply #+abcl #'sys:run-program #+allegro 'excl:run-shell-command - #+(and allegro os-unix) (coerce (cons (first %command) %command) 'vector) - #+(and allegro os-windows) %command + #+(and allegro os-unix) (coerce (cons (first command) command) 'vector) + #+(and allegro os-windows) command #+clozure 'ccl:run-program #+(or cmucl ecl scl) 'ext:run-program #+lispworks 'system:run-shell-command - #+lispworks (cons "/usr/bin/env" %command) ; LW wants a full path + #+lispworks (cons "/usr/bin/env" command) ; LW wants a full path #+mkcl 'mk-ext:run-program #+sbcl 'sb-ext:run-program (append - #+(or abcl clozure cmucl ecl mkcl sbcl scl) `(,(car %command) ,(cdr %command)) - `(:input ,%input :output ,%output - #.(or #+(or allegro lispworks) :error-output :error) ,%error-output + #+(or abcl clozure cmucl ecl mkcl sbcl scl) `(,(car command) ,(cdr command)) + `(:input ,input :output ,output + #.(or #+(or allegro lispworks) :error-output :error) ,error-output :wait nil :element-type ,element-type :external-format ,external-format :if-input-does-not-exist :error :if-output-exists :append