CLOS で、あるクラスの派生クラスであるかどうかの
判定方法はどのようにするのですか？
今は作った派生クラス皆に対していちいち type-of で比較判定をしています。