Как убить процесс (созданный run-process)

Question

Я хочу убить процесс, начатый (sb-ext:run-program).

(let ((process (sb-ext:run-program "/path/to/process.sh" '() :wait nil))) 
    (sleep 10) 
    (sb-ext:process-close process) 
    (sb-ext:process-kill process 9 :pid)) 

По SBCL-Manual(sb-ext:process-kill process 9 :pid) следует отправить SIGKILL(which has value 9) в process, поэтому уничтожив этот процесс.

Но когда я пытаюсь использовать это, используя фиктивный процесс:

#!/bin/bash 

i=0 
while [ $i -lt 4 ] 
do 
sleep 5 
i+=1 
done 

Это оставляет корпус сзади, который не может даже быть убит с помощью Htop + убить.

Процесс дерево перед выполнением выглядело следующим образом:

|- /usr/bin/emacs 
| |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 

В процессе выполнения:

|- /usr/bin/emacs 
| |- /usr/local/bin/sbcl 
| | |- /bin/bash /path/to/process.sh 
| | | |- sleep 5 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 

После исполнения места (process.sh не прекращается, если основной SbCl не будет убит/остановлен):

|- /usr/bin/emacs 
| |- /usr/local/bin/sbcl 
| | |- process.sh 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 
| | |- /usr/local/bin/sbcl 

Сценарий может быть убит и полностью прекращен при запуске вручную используя Ctr-C или htop + kill.

Поэтому, как я могу достичь бесшовного/бездетного убийства внутри sbcl?

То же самое происходит при использовании:

(let ((process (sb-ext:run-program "/usr/local/bin/sbcl" '("--dynamic-space-size" "512" "--eval" "(sleep 100)") :wait nil))) 
    (sleep 10) 
    (sb-ext:process-close process) 
    (sb-ext:process-kill process 9 :pid)) 

Answer 1

Решение выглядит либо как это (если использовать потоки, связанные с процессом вы должны процесс-близко):

(let ((process (sb-ext:run-program "/home/user/processTest.sh" '() :wait nil))) 
    (sleep 10) 
    (sb-ext:process-kill process 15 :pid) 
    (sb-ext:process-wait process) 
    (sb-ext:process-close process) 
    (sb-ext:process-exit-code process)) 

Или, как Сильвестр указал, что вы можете просто оставить process-close (если у вас нет потоков, связанных с процессом):

(let ((process (sb-ext:run-program "/home/user/processTest.sh" '() :wait nil))) 
    (sleep 10) 
    (sb-ext:process-kill process 15 :pid))         

process-close влияет на процесс таким образом, что он станет zombie.

Это происходит для дочерних процессов, где запись все еще необходима, чтобы родительский процесс мог прочитать статус выхода своего ребенка.

Как только состояние выхода считывается через process-exit-code, процесс забирается и исчезает.