杀掉所有newlisp进程

在用newlisp创建多个进程模拟客户端进行测试的时候，关闭是个问题，下面的脚本很方便的杀掉所有newlisp进程

#!/usr/bin/newlisp

(set 'r (exec "pidof newlisp"))
(dolist (l r)
  (exec (append "kill " l)))