common-lisp - getf 可以使用 equal 而不是 eq 进行比较吗？ (常见的口齿不清)

Question

我想知道是否有一种方法可以强制 getf 使用 equal 而不是 eq 进行比较？我正在使用 common lisp 的 ccl 实现。

Answer 1

不，您必须使用不同的功能；大约这样的事情可能会做你需要的:

(defun equal-getf (plist indicator)
  (second (member indicator plist :test #'equal)))

编辑

这是一个固定版本，它将列表正确地视为键/值对:

(defun equal-getf (plist indicator)
  (loop for key in plist by #'cddr
        for value in (rest plist) by #'cddr
        when (equal key indicator)
        return value))