diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 2c85d1fc48f5063c90a03ca2b97b7389eadf7678..a8404b9037de7c885de0f3004013a76167660943 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -1040,19 +1040,17 @@ or :error-output." (if (minusp raw-exit-code) (- 128 raw-exit-code) raw-exit-code)) - #-(or clisp (and lispworks os-windows)) - (with-current-directory ((os-cond ((not (os-unix-p)) directory))) - #+abcl (ext:run-shell-command %command) - #+cormanlisp (win32:system %command) - #+(or clasp ecl) (let ((*standard-input* *stdin*) - (*standard-output* *stdout*) - (*error-output* *stderr*)) - (ext:system %command)) - #+gcl (system:system %command) - #+genera (not-implemented-error '%system) - #+mcl (ccl::with-cstrs ((%%command %command)) (_system %%command)) - #+mkcl (mkcl:system %command) - #+xcl (system:%run-shell-command %command)))) + #+abcl (ext:run-shell-command %command) + #+cormanlisp (win32:system %command) + #+(or clasp ecl) (let ((*standard-input* *stdin*) + (*standard-output* *stdout*) + (*error-output* *stderr*)) + (ext:system %command)) + #+gcl (system:system %command) + #+genera (not-implemented-error '%system) + #+mcl (ccl::with-cstrs ((%%command %command)) (_system %%command)) + #+mkcl (mkcl:system %command) + #+xcl (system:%run-shell-command %command))) (defun %use-system (command &rest keys &key input output error-output ignore-error-status &allow-other-keys)