key - 使用Common Lisp CLOS对象作为哈希表中的键？

Question

我想使用Common Lisp CLOS对象作为哈希表中的键。我以为就这么简单:

(defclass my-class () ((a :accessor a :initarg a)))

(defun my-class= (my-instance-1 my-instance-2)
(equal (a my-instance-1) (a my-instance-2)))

(defparameter my-hash-table (make-hash-table :test #'my-class=))

检查Common Lisp Hyperspec，看来我只能使用eq，eql，equal或equip来测试相等性。

有什么办法可以做到吗？还是这只是一件愚蠢的事情，这就是为什么标准不允许这样做的原因？

Answer 1

通用Lisp标准不提供任何机制来提供其他测试功能(超越标准)。您有2个选择:

使用genhash genhash，它是可移植的哈希表实现(与内置的不兼容)

使用非标准扩展名:

SBCL具有sb-ext:define-hash-table-test函数(documentation)

Clisp具有类似的功能ext:define-hash-table-test(documentation)

Allegro ans Lispworks接受:test参数的非标准值，并具有:hash-function参数(Allegro，Lispworks)。