Commit 4e8a7286 authored by Elias Pipping's avatar 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" ...@@ -309,7 +309,9 @@ argument to pass to the internal RUN-PROGRAM"
(:signaled (let ((%code (%signal-to-exit-code code))) (:signaled (let ((%code (%signal-to-exit-code code)))
(setf (slot-value process-info 'exit-code) %code (setf (slot-value process-info 'exit-code) %code
(slot-value process-info 'signal-code) code)))) (slot-value process-info 'signal-code) code))))
(values status code)))) (if code
(values status code)
status))))
(defun process-alive-p (process-info) (defun process-alive-p (process-info)
"Check if a process has yet to exit." "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