Commit 4e8a7286 by Elias Pipping

%process-status: Do not needlessly return a nil value

parent 582e7d29
......@@ -309,7 +309,9 @@ argument to pass to the internal RUN-PROGRAM"
(:signaled (let ((%code (%signal-to-exit-code code)))
(setf (slot-value process-info 'exit-code) %code
(slot-value process-info 'signal-code) code))))
(values status code))))
(if code
(values status code)
status))))
(defun process-alive-p (process-info)
"Check if a process has yet to exit."
......
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