closer-mop 提供了一个 subclassp 谓词 CL-USER> (c2mop:subclassp (find-class 'condition) (find-class 'error)) NIL CL-USER> (c2mop:subclassp (find-class 'error) (find-class 'condition)) T