測試一個類是否是另一個共同類lisp的子類

Question

如何查看一個CLOS類是否是另一個CLOS類的子類？

Answer 1

您可以獲得班級的CLASS-NAME。

一個類也有一個同名的類型。

SUBTYPEP測試一個類型是否是另一個類型的子類型。

Answer 2

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