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

Drop superfluous with-current-directory

The command returned by %redirected-system-command changes the current
directory on its own.
parent ed240ac9
Loading
Loading
Loading
Loading
+11 −13
Original line number Original line Diff line number Diff line
@@ -1040,8 +1040,6 @@ 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))
      (with-current-directory ((os-cond ((not (os-unix-p)) directory)))
      #+abcl (ext:run-shell-command %command)
      #+abcl (ext:run-shell-command %command)
      #+cormanlisp (win32:system %command)
      #+cormanlisp (win32:system %command)
      #+(or clasp ecl) (let ((*standard-input* *stdin*)
      #+(or clasp ecl) (let ((*standard-input* *stdin*)
@@ -1052,7 +1050,7 @@ or :error-output."
      #+genera (not-implemented-error '%system)
      #+genera (not-implemented-error '%system)
      #+mcl (ccl::with-cstrs ((%%command %command)) (_system %%command))
      #+mcl (ccl::with-cstrs ((%%command %command)) (_system %%command))
      #+mkcl (mkcl:system %command)
      #+mkcl (mkcl:system %command)
        #+xcl (system:%run-shell-command %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)