Commit 0291394e authored by Elias Pipping's avatar Elias Pipping

Drop superfluous with-current-directory

The command returned by %redirected-system-command changes the current
directory on its own.
parent ed240ac9
...@@ -1040,19 +1040,17 @@ or :error-output." ...@@ -1040,19 +1040,17 @@ or :error-output."
(if (minusp raw-exit-code) (if (minusp raw-exit-code)
(- 128 raw-exit-code) (- 128 raw-exit-code)
raw-exit-code)) raw-exit-code))
#-(or clisp (and lispworks os-windows)) #+abcl (ext:run-shell-command %command)
(with-current-directory ((os-cond ((not (os-unix-p)) directory))) #+cormanlisp (win32:system %command)
#+abcl (ext:run-shell-command %command) #+(or clasp ecl) (let ((*standard-input* *stdin*)
#+cormanlisp (win32:system %command) (*standard-output* *stdout*)
#+(or clasp ecl) (let ((*standard-input* *stdin*) (*error-output* *stderr*))
(*standard-output* *stdout*) (ext:system %command))
(*error-output* *stderr*)) #+gcl (system:system %command)
(ext:system %command)) #+genera (not-implemented-error '%system)
#+gcl (system:system %command) #+mcl (ccl::with-cstrs ((%%command %command)) (_system %%command))
#+genera (not-implemented-error '%system) #+mkcl (mkcl:system %command)
#+mcl (ccl::with-cstrs ((%%command %command)) (_system %%command)) #+xcl (system:%run-shell-command %command)))
#+mkcl (mkcl:system %command)
#+xcl (system:%run-shell-command %command))))
(defun %use-system (command &rest keys (defun %use-system (command &rest keys
&key input output error-output ignore-error-status &allow-other-keys) &key input output error-output ignore-error-status &allow-other-keys)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment