如何将lambda传递给宏？_Lambda_Lisp_Common Lisp

如何将lambda传递给宏？

lambda lisp common-lisp

如何将lambda传递给宏？,lambda,lisp,common-lisp,Lambda,Lisp,Common Lisp,我需要传递函数并用指定的参数调用它。如何正确地将lambda函数传递给宏并避免此错误： APPLY:#'（LAMBDA（X）（+x1））不是函数名；尝试改用符号代码：电话：我的代码怎么了？尝试了类似的+函数，一切都很好更新：程序应该为每个参数调用指定的函数并返回结果。参数是列表。所以我应该传递不同的函数，这些函数接受列表 (setq l1 (list 1 2 3)) (setq l2 (list 2 3 4)) (setq l3 (list 3 4 5)) (defmacro run

我需要传递函数并用指定的参数调用它。如何正确地将lambda函数传递给宏并避免此错误：

APPLY:#'（LAMBDA（X）（+x1））不是函数名；尝试改用符号

代码：

电话：

我的代码怎么了？尝试了类似的

函数，一切都很好

更新：程序应该为每个参数调用指定的函数并返回结果。参数是列表。所以我应该传递不同的函数，这些函数接受列表

(setq l1 (list 1 2 3))
(setq l2 (list 2 3 4))
(setq l3 (list 3 4 5))

(defmacro runner (fun &rest arg)
  ; some code
)

(defun summer (l)
  (reduce #'+ l))

(print (runner summer l1 l2 l3))

就像这样，但是有任意数量的参数

(defun runner (l)
   (mapcar #'(lambda (x) (summer x)) l))

(print (runner (list l1 l2 l3)))

您需要在宏中使用backquote，因此它在运行时而不是编译时扩展为对函数的调用

(defmacro runner (fun &rest arg)
   `(mapcar (lambda (a) (funcall #',fun a)) (list ,@arg)))

(setq l1 (list 1 2 3))
(setq l2 (list 2 3 4))
(setq l3 (list 3 4 5))

(defun summer (l)
  (reduce #'+ l))

(print (runner summer l1 l2 l3))

(print (runner (lambda (x) (+ x 1)) 1 3 4))

由于

runner

希望第一个参数是函数名，因此它在调用函数之前添加了

#'

前缀本身。因此，在调用

lambda

之前，不应该使用它

我将

apply

更改为

funcall

，因为您调用

summer

的方式表明，您希望每个列表作为单个参数传递，而不是分散传递。由于您的

lambda

表达式期望其参数为单个数字，而不是列表，因此我将这些数字作为单独的参数传递，而不是包装在列表中

您需要在宏中使用backquote，因此它在运行时扩展为对函数的调用，而不是编译时

(defmacro runner (fun &rest arg)
   `(mapcar (lambda (a) (funcall #',fun a)) (list ,@arg)))

(setq l1 (list 1 2 3))
(setq l2 (list 2 3 4))
(setq l3 (list 3 4 5))

(defun summer (l)
  (reduce #'+ l))

(print (runner summer l1 l2 l3))

(print (runner (lambda (x) (+ x 1)) 1 3 4))

由于

runner