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

Bug fix: Exit status with Allegro CL after signal

If a process is killed by a signal, sys:reap-os-subprocess will return

  (0, pid, signal)

so that checking the exit code alone does not suffice.
parent 4673c139
......@@ -573,7 +573,9 @@ It returns a process-info plist with possible keys:
#+(or cmu scl) (ext:process-wait process)
#+sbcl (sb-ext:process-wait process)
;; 2- extract result
#+allegro (sys:reap-os-subprocess :pid process :wait t)
#+allegro (multiple-value-bind (exit-code pid signal)
(sys:reap-os-subprocess :pid process :wait t)
(or signal exit-code))
#+clozure (nth-value 1 (ccl:external-process-status process))
#+(or cmu scl) (ext:process-exit-code process)
#+(or clasp ecl) (nth-value 1 (ext:external-process-wait process t))
Supports Markdown
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