Loading uiop/run-program.lisp +7 −7 Original line number Diff line number Diff line Loading @@ -1028,8 +1028,11 @@ or :error-output." (apply 'launch-program (%normalize-system-command command) keys))))) #+(or abcl clasp clisp cormanlisp ecl gcl genera (and lispworks os-windows) mkcl xcl) (let ((%command (%redirected-system-command command input output error-output directory))) #+(and lispworks os-windows) (system:call-system %command :current-directory directory :wait t) #+abcl (ext:run-shell-command %command) #+(or clasp ecl) (let ((*standard-input* *stdin*) (*standard-output* *stdout*) (*error-output* *stderr*)) (ext:system %command)) #+clisp (let ((raw-exit-code (or Loading @@ -1040,14 +1043,11 @@ or :error-output." (if (minusp raw-exit-code) (- 128 raw-exit-code) raw-exit-code)) #+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) #+(and lispworks os-windows) (system:call-system %command :current-directory directory :wait t) #+mcl (ccl::with-cstrs ((%%command %command)) (_system %%command)) #+mkcl (mkcl:system %command) #+xcl (system:%run-shell-command %command))) Loading Loading
uiop/run-program.lisp +7 −7 Original line number Diff line number Diff line Loading @@ -1028,8 +1028,11 @@ or :error-output." (apply 'launch-program (%normalize-system-command command) keys))))) #+(or abcl clasp clisp cormanlisp ecl gcl genera (and lispworks os-windows) mkcl xcl) (let ((%command (%redirected-system-command command input output error-output directory))) #+(and lispworks os-windows) (system:call-system %command :current-directory directory :wait t) #+abcl (ext:run-shell-command %command) #+(or clasp ecl) (let ((*standard-input* *stdin*) (*standard-output* *stdout*) (*error-output* *stderr*)) (ext:system %command)) #+clisp (let ((raw-exit-code (or Loading @@ -1040,14 +1043,11 @@ or :error-output." (if (minusp raw-exit-code) (- 128 raw-exit-code) raw-exit-code)) #+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) #+(and lispworks os-windows) (system:call-system %command :current-directory directory :wait t) #+mcl (ccl::with-cstrs ((%%command %command)) (_system %%command)) #+mkcl (mkcl:system %command) #+xcl (system:%run-shell-command %command))) Loading