Question

This question already has an answer here:

Possible Duplicate:
How to pass a lambda expression in Elisp

我有以下代码:

(defun my-map (p l)
  (mapcar (lambda (el) (p el)) l))

(defun test ()
  (my-map (lambda (x) (+ x 1)) (list 1 2 3)))

它抱怨它找不到功能p:

Debugger entered--Lisp error: (void-function p)
  (p el)
  (lambda (el) (p el))(1)
  mapcar((lambda (el) (p el)) (1 2 3))
  my-map((lambda (x) (x + 1)) (1 2 3))
  test()
  eval((test) nil)
  eval-expression((test) nil)
  call-interactively(eval-expression nil nil)
  recursive-edit()
  debug(error (void-variable test))
  eval(test nil)
  eval-expression(test nil)
  call-interactively(eval-expression nil nil

我猜它把 p 作为符号,而不在外部范围中受变量的约束。如何使其发挥作用?

Answer 1

您想要使用 funcall 。

“C源代码”中的自定义功能是“C”源代码。

(未点名的功能 & amp; rest 指令)

Call first argument as a function, passing remaining arguments to it. Return the value that function returns. Thus, (funcall cons x y) returns (x . y).

友情链接