便携式条件系统 描述 这是Common Lisp条件系统的示例实现，基于Kent M. Pitman的原始条件系统实现。 这段代码是： 从分叉，并将原始文件复制以供后代使用， 清理后可以在没有警告的情况下根据当代Common Lisp实现进行编译， 小写并调整为符合现代Lisp风格的标准， 进行现代化更新以在适用的情况下使用ANSI CL功能：例如defclass ， defmethod ， print-object ， print-unreadable-object defmetho