— Try to stop a running task.
An object of type
This function tries to stop a running task. Killing a process
may fail if the task has disabled interrupts.
Kill a task that is doing nothing.
(flet ((task-to-be-killed ()
(loop (sleep 1)) ; Infinite loop
(let ((task (mp:process-run-function 'background #'task-to-be-killed)))