inheritance - CLOSのinstanceofと同等ですか? インスタンスが別のオブジェクトから継承されているかどうかを確認するには?

Question

CL-USER> (defclass a () ())
CL-USER> (defclass b (a) ())
CL-USER> (make-instance 'b)
#<STANDARD-CLASS B>

a から継承された場合に T を返すインスタンス b で、どの述語関数を呼び出すことができますか? の流れで：

CL-USER> (instanceof 'a *)
T

Answer 1

クラス名は型名でもあるため、次のようになります。

(typep * 'a)

型とクラスの統合を参照してください: http://clhs.lisp.se/Body/04_cg.htm

または、次のようにすることもできます。

(defmethod is-an-a-p ((x a))
  t)
(defmethod is-an-a-p ((x t))
  nil)