클래스가 공통 리스프의 다른 클래스의 서브 클래스인지 테스트

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