Starting November 9th, common-lisp.net's Gitlab instance has implemented a more open account policy, allowing anyone with a GitHub or Google account to create an account on our instance.

At the same time, the login policy has started to require 2-factor authentication (2FA).

See https://mailman.common-lisp.net/pipermail/clo-devel/2018-October/001232.html for discussion.

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"
(: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