使用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或equalp来测试相等性。

我有什么方法可以做到这一点？或者这只是一个真正的stoopid事情，这就是为什么标准不允许它？

Answer 1

Common Lisp标准没有提供任何提供额外测试功能的机制（beyound标准功能）。您有两个选择：

1. 使用genhash genhash，它是可移植的哈希表实现（与内置哈希表不兼容）
2. 使用非标准扩展程序：
   1. SBCL具有sb-ext:define-hash-table-test功能（documentation）
   2. Clisp具有类似的功能ext:define-hash-table-test（documentation）
   3. Allegro和Lispworks接受:test参数的非标准值，并且:hash-function参数Allegro，Lispworks）。