Commit 30bea48c authored by Elias Pipping's avatar Elias Pipping

Sort implementations alphabetically

parent 0291394e
......@@ -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
......@@ -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)))
......
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