From 0291394eaf9bf9a7f3c87483f517622713c3e0fc Mon Sep 17 00:00:00 2001 From: Elias Pipping Date: Fri, 11 Nov 2016 22:54:33 +0000 Subject: [PATCH] Drop superfluous with-current-directory The command returned by %redirected-system-command changes the current directory on its own. --- uiop/run-program.lisp | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 2c85d1fc..a8404b90 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) -- GitLab