methods - 在 defmethod 中使用 Common Lisp 用户定义类型

Question

我希望能够使用定义的类型作为 defmethod 的参数专门化器。动机是可读性和后期更改的灵 active 。像这样的事情:

(deftype foo () 'fixnum)

(defmethod bar ((x foo)) ...)

(defmethod baz ((x foo)) ...)

但是这不起作用。 CLtL2 说“deftype 形式不会创建任何类。”

所以我必须写:

(defmethod bar ((x fixnum)) ...)

(defmethod baz ((x fixnum)) ...)

另一种方法是定义一个名为 foo 的类，它只不过是 fixnum 的包装器，但对于像这样简单的东西来说，这不是一个 Not Acceptable 开销吗？一个fixnum？

有更好的方法吗？

Answer 1

方法并不专门针对类型，它们专门针对类或 EQL。部分情况是这样，因为一个对象可能有多种类型(例如，整数 1 是 FIXNUM、BIT、UNSIGNED-BYTE 等)，并且如何决定优先级并不明显。

如果您想要更少的开销和用户定义的类型抽象，TYPECASE 或 ETYPECASE 可能比泛型函数和方法更好。