lisp - 从 plist 宏体中提取和执行闭包/lambda

Question

我正在尝试创建一个bar应该像这样使用的宏（）：

(let ((my-var "foo"))
   (bar ("some")
        :buzz (lambda () (format t "~a~%" my-var))))

宏应该基本上只是在考虑 MY-VAR 的情况下 FUNCALL lambda。

我想出的是：

(defmacro bar ((thing) &body body)
   `(funcall (coerce (getf (list ,@body) :buzz) 'function)))

这有效，它打印“foo”。但我想知道这是否是这样做的，或者是否有更好的方法来做到这一点。

score 2 · Accepted Answer

好吧，首先，如果您不需要额外的未使用的参数，那么这只是funcall，因为(lambda ...)表示一个函数。

(let ((my-var "foo"))
  (funcall (lambda () (format t "~a~%" my-var))))

因此，即使您不想调用它funcall，也可以将其编写为函数，而不是宏：它不进行任何代码转换。但大概你确实需要这个额外的参数，并且你打算在扩展中将它用于某些目的，所以你需要的是一个宏，它接受关键字参数并只是扩展成合适的funcall形式：

(defmacro bar ((thing) &key (buzz '(lambda ())))
  (declare (ignore thing))
  `(funcall ,buzz))

1 回答 1