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 582e7d29 authored by Elias Pipping's avatar Elias Pipping

%process-status: Report stopping signal on SBCL

parent eff10f20
......@@ -298,8 +298,12 @@ argument to pass to the internal RUN-PROGRAM"
(values :signaled (%mkcl-signal-to-number code))
(values status code)))
#+sbcl (let ((status (sb-ext:process-status process)))
(values status (if (member status '(:exited :signaled))
(sb-ext:process-exit-code process)))))
(if (eq status :running)
:running
;; sb-ext:process-exit-code can also be
;; called for stopped processes to determine
;; the signal that stopped them
(values status (sb-ext:process-exit-code process)))))
(case status
(:exited (setf (slot-value process-info 'exit-code) code))
(:signaled (let ((%code (%signal-to-exit-code code)))
......
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