diff --git a/src/code/multi-proc.lisp b/src/code/multi-proc.lisp index 4e2b1bcd78007a01fa3a3e7333f9f4a18a1c4eef..c73f0b41afe11e71d4af65c7a10180e0eeafde0e 100644 --- a/src/code/multi-proc.lisp +++ b/src/code/multi-proc.lisp @@ -1044,7 +1044,9 @@ (process-interrupts process)) ;; Ensure that the process is active so that it can accept this ;; interrupt. - (setf (process-state process) :active))) + (setf (process-state process) :active + (process-%arrest-reasons process) nil) + (push :destroyed (process-%run-reasons process)))) ;; Should we wait until it's dead? (process-yield))