Commit eff10f20 by Elias Pipping

%process-status: Add a comment

parent d1700092
......@@ -277,8 +277,12 @@ argument to pass to the internal RUN-PROGRAM"
(%code-to-status exit-code signal-code))
#+clozure (ccl:external-process-status process)
#+(or cmucl scl) (let ((status (ext:process-status process)))
(values status (if (member status '(:exited :signaled))
(ext:process-exit-code process))))
(if (member status '(:exited :signaled))
;; Calling ext:process-exit-code on
;; processes that are still alive
;; yields an undefined result
(values status (ext:process-exit-code process))
status))
#+ecl (ext:external-process-status process)
#+lispworks
;; a signal is only returned on LispWorks 7+
......
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