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