function - Emacs 定义一个将参数设置为 nil 的函数

Question

我想创建一个 nil 函数，它接受任意数量的符号并将它们全部设置为 nil。

(defun clean (as many args as given by user)
  (setq each-arg nil)
)

(clean x y z)

如何“干净利落地”做到这一点？

Answer 1

因为你没有引用参数，所以它必须是一个宏:

(defmacro clean (&rest symbols)
  `(progn
     ,@(mapcar (lambda (sym) (list 'setq sym 'nil))
               symbols)))