如何在 Common Lisp 中以给定的错误代码便携式退出当前 Lisp 进程？

Question

我想调用一个函数，以特定的退出代码结束当前的 Lisp 进程。

在Python中，我会这样写：

os.exit(15)

我如何在 Common Lisp 中可移植地做到这一点？

（类似“波尔多线”的便携性很好。）

Answer 1

使用 uiop

 中的 

quit（它与每个常用的 Common Lisp 实现捆绑在一起）：

(require :uiop) ; Or if using QuickLisp, (ql:quickload :uiop)
(uiop:quit 0) ; normal exit
(uiop:quit 15) ; error status 15