CLOS实例的等价性？如何检查实例是否从另一个对象继承？ [英] Equivalance of instanceof for CLOS? How to check if instance is inherited from another object?

问题描述

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

我可以在我的实例b上调用什么谓词函数，如果它继承自？以下是：

What predicate function can I call on my instance b, which returns T if it was inherited from a? In the vein of:

CL-USER> (instanceof 'a *)
T

推荐答案

类名也是类型名称，因此：

Class names are also type names, so:

(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)

这篇关于CLOS实例的等价性？如何检查实例是否从另一个对象继承？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！