サブクラス関係かどうか判定する - lisp-cookbook-ja/common-lisp GitHub Wiki

オブジェクトシステム(CLOS)

Common Lispでは組み込み型とクラスは統合されていますので判定にはsubtypepが利用できます。 subtypepは2値を返し、第1引数が第2引数のサブタイプ/クラスである場合は、1値目がTになります。 サブクラスでない場合は、1値目がNILになり、判定できない場合は、2値目がNILとなります。(T,NILという組み合わせはありません。)

(defclass foo () ())
(defclass bar (foo) ())
(defclass baz () ())

(subtypep 'foo 'bar)
;=> NIL
;   T

(subtypep 'foo 'baz)
;=> NIL
;   T

(subtypep 'bar 'foo)
;=> T
;   T