Loading uiop/run-program.lisp +11 −13 Original line number Original line Diff line number Diff line Loading @@ -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*) Loading @@ -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) Loading Loading
uiop/run-program.lisp +11 −13 Original line number Original line Diff line number Diff line Loading @@ -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*) Loading @@ -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) Loading