common-lisp - 常见的 lisp : slot-value for defstruct structures

在普通的 lisp 中，我可以使用什么来使用插槽名称/符号访问结构插槽？

我想要的是

(defstruct point (x 0) (y 0))
(defmacro -> (struct slot) `(slot-value ,struct ,slot))

(setf p (make-point))
(setf (slot-value p 'x) 1)
(setf (-> p 'y) 2)

我正在使用 clozure cl，在 clozure cl 中这是有效的。但是，AFAIK 这是非标准行为(相当于“未定义行为”C++)。我不打算切换到另一个 CL 实现，所以我应该继续使用 slot-value 作为结构，还是有更好的方法来做到这一点？

最佳答案

通常你会使用带有结构的访问器函数。

您的代码定义了访问器函数 point-x 和 point-y 。你可以使用那些。

您还可以将 SLOT-VALUE 与支持它的实现上的结构一起使用。我想这是大多数实现(GCL 是一个异常(exception))。有 Lisp 软件假定 SLOT-VALUE 适用于结构。我认为实现不会取消对它的支持。它不在标准中，因为某些实现者不想在已部署的应用程序中提供此功能。

所以两种方式都可以。

如果您想要短名称，请使用访问器:

CL-USER 109 > (defstruct (point :conc-name)
                (x 0) (y 0))
POINT

CL-USER 110 > (make-point :x 5 :y 3)
#S(POINT :X 5 :Y 3)

CL-USER 111 > (setf p1 *)
#S(POINT :X 5 :Y 3)

CL-USER 112 > (x p1)
5

CL-USER 113 > (setf p2 (make-point :x 2 :y 3))
#S(POINT :X 2 :Y 3)

CL-USER 114 > (list p1 p2)
(#S(POINT :X 5 :Y 3) #S(POINT :X 2 :Y 3))

CL-USER 115 > (mapcar 'x (list p1 p2))
(5 2)

然后必须通过包来防止各种访问器函数之间的名称冲突。

如果你想写一个较短版本的 SLOT-VALUE ，那也没关系。写个宏。或者写一个内联函数。当然 - 为什么不呢？

正如我所说，SLOT-VALUE 在大多数实现中都适用于结构。在这种情况下，您不必担心 ANSI CL 规范没有定义它。在许多方面，实现扩展了 ANSI CL 规范。例如，通过 SLOT-VALUE 处理结构，将流实现为 CLOS 类，将条件实现为 CLOS 类，提供元对象协议(protocol)，...