LISP - 传递结构组件，而不是组件的值

作者: 滔滔江水
发布时间: 2025-01-19 03:51:46 (11天前)
转自：

2 条回复

0#
回复此人
薄情 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 结构在标准CL中非常静态 - 例如，重新定义结构的效果是不确定的。如果我们可以按插槽名称访问结构，那么它也是未定义的。存在的插槽读取器功能和支持使用它们 <code> setf </code> 。 </p> <P> 假设我们有一个结构类型： </p> <pre> <code> (defstruct node fox) </code> </pre> <P> 然后，当我们想要更改结构的一个组件时，我们需要传递一个设置该组件的函数： </p> <pre> <code> (defun pass-comp (node setter-fn) (funcall setter-fn node 1) node) </code> </pre> <P> 然后我们可以传递一个setter函数： </p> <pre> <code> (let ((my-node (make-node))) (pass-comp my-node (lambda (node new) (setf (node-fox node) new))) (node-fox my-node)) </code> </pre> </DIV>

编辑

登录后才能参与评论