(defun (setf f) val params)

最新推荐文章于 2023-08-30 08:49:56 发布

weixin_30794851

最新推荐文章于 2023-08-30 08:49:56 发布

阅读量100

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/flowjacky/archive/2013/01/02/2842259.html

本文介绍了Common Lisp中使用setf宏来修改由其他函数返回的值的方式，并通过实例展示了如何定义特定的setf方法来改变由某个函数返回的数据结构。

当defun的第一个参数是（setf f）这样的形式时，是在定义使用（setf (f params) val)时的行为。

例如：

CL-USER> (setf lst (list 'a 'b 'c))
(A B C)
CL-USER> (defun fun (x)
       (car x))
FUN
CL-USER> (setf (fun lst) 'f)
;Compiler warnings :
;   In an anonymous lambda form: Undeclared free variable LST
;   In an anonymous lambda form: Undefined function (SETF FUN)
Invoking restart: Return to SLIME's top level.
; Evaluation aborted on #<CCL::UNDEFINED-FUNCTION-CALL #xC83E9B6>.
CL-USER> (defun (setf fun) (val x)
       (setf (car x) val))
(SETF FUN)
CL-USER> (setf (fun lst) 'f)
;Compiler warnings :
;   In an anonymous lambda form: Undeclared free variable LST
F
CL-USER> lst
(F B C)
CL-USER>