Commit 25c54df9 by Elias Pipping

Fix process-alive-p for continued processes

The next ECL release after 16.1.3 will have :resumed.
-> See also https://gitlab.com/embeddable-common-lisp/ecl/issues/273

Moreover (even though these lisps have dedicated process-alive-p
functions and are thus not currently affected:

The next SBCL release after 1.3.21 will have :continued
-> See also https://sourceforge.net/p/sbcl/sbcl/ci/5ff75f6/
The next CMUCL release after 21b will have :continued
-> See also cmucl/cmucl#41
parent 27aedd56
......@@ -308,8 +308,8 @@ argument to pass to the internal RUN-PROGRAM"
#+abcl (sys:process-alive-p (slot-value process-info 'process))
#+(or cmucl scl) (ext:process-alive-p (slot-value process-info 'process))
#+sbcl (sb-ext:process-alive-p (slot-value process-info 'process))
#-(or abcl cmucl sbcl scl) (member (%process-status process-info)
'(:running :sleeping))))
#-(or abcl cmucl sbcl scl) (find (%process-status process-info)
'(:running :stopped :continued :resumed))))
(defun wait-process (process-info)
"Wait for the process to terminate, if it is still running.
......
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