如何在 Clozure cl 中杀死一组进程？

Question

我想在 ccl 中运行 shell 命令，但该命令可能由于某种原因被挂起。所以我想杀掉这个命令生成的所有子进程。我该怎么做？

我尝试过 trivial-shell 来运行 shell 命令，当命令没有挂起时，它运行良好。

我还使用 trivial-shell 中的 with-timeout 宏来检查超时，它只是给我一个超时错误条件，shell 进程仍然挂在那里。在这里我只想把他们全部杀掉，回报一些东西。

谢谢大家。

Answer 1

据我所知，trivial-shell 只提供同步 shell 调用，因此没有简单的方法来终止正在进行的子进程。

我建议使用 :wait nil 调用 Clozure Common Lisp 的特定于实现的 ccl:run-program 函数来异步运行作业。然后，如果需要，您可以在正在运行的进程上调用 ccl:signal-external-process 来终止它。 此处的文档。