Commit fb676cba authored by Elias Pipping's avatar Elias Pipping
Browse files

Merge branch 'feature/fix-process-alive-p-on-ecl' into 'master'

Fix process-alive-p on upcoming ECL release

See merge request !79
parents 27aedd56 25c54df9
......@@ -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