在另一个函数中调用由 flet 定义的函数

Question

我有一组在foo 中定义的函数，我还想在bar 中使用这些函数。我在foo 中定义了这些函数，因为我希望foo 是自包含的——否则我知道我可以在外部（全局）定义这些函数以供foo 和bar 以及其他函数访问，或在labels 构造中同时定义foo 和bar，其中这些函数仅针对foo 和bar 定义。无论如何，我希望 foo 在没有外部函数或 labels 结构的情况下可以分发。因此面临挑战。

这是我到目前为止所拥有的（在这种情况下我使用的是 Emacs Lisp），但是当我调用 bar 时，我现在最终在 foo 中全局定义了本地函数。关于如何在bar“on the fly”中定义局部变量/函数有什么建议吗？

(defun foo (x)
  (flet ((addone (x) (1+ x))
     (addtwo (x) (+ 2 x)))
    (addtwo x)))

(defun bar (x) 
  (let* ((fnlist (car (cdaddr (symbol-function 'foo))))
     (nfn (length fnlist))
     (ifn nil)
     (bar-body '(addone x))
     (i 0))
    (eval (append 
       ;; local symbol names
       ;; to which function definitions will be set
       (list 'let (mapcar 'car fnlist))
       ;; set function definitions
       (list '(while (< i nfn)
            (setq ifn (nth i fnlist))
            (eval `(fset ',(car ifn) ,(append (list 'lambda) (cdr ifn))))
            (setq i (1+ i))))
       ;; function invocation
       (list bar-body)))))

功能应用：

(foo 1) ;;=> 3

(bar 1) ;;=> 2

(addone 1) ;;=> 2 ?should not be defined outside of bar?

Answer 1

这不是独立的，所以它不是真正的答案；但是和你提到的其他选项不同，所以我还是会添加它。

(defmacro with-foo-functions (&rest forms)
  `(flet ((addone (x) (1+ x))
          (addtwo (x) (+ 2 x)))
     ,@forms))

(defun foo (x)
  (with-foo-functions
   (addtwo x)))

(defun bar (x)
  (with-foo-functions
   (addone x)))

Answer 2

Emacs Lisp 具有动态绑定。这与几乎所有其他 Lisps 使用的词法绑定不同。例如，如果您尝试在 Common Lisp 中执行以下操作，您将收到一条错误消息，指出 FOO 未定义：

(defun bar ()
  (foo 10))

(flet ((foo (x) (1+ x)))
  (bar))

然而，在 Emacs Lisp 中，由于 FOO 是动态绑定的，这将返回 11，因为 FOO 的绑定在 BAR 中可用。

Emacs Lisp 不为函数提供词法绑定，因此为了在 Emacs Lisp 中实现相同的功能，您必须通过将 lambda 绑定到词法变量来伪造它，然后使用宏来隐藏 FUNCALL ：

(lexical-let ((foo #'(lambda (x) (1+ x))))
  (macrolet ((foo (x) `(funcall foo ,x)))
    (foo 10)))

此问题的另一个答案建议使用宏而不是 flet。这可行，但会导致不必要的代码重复。我的解决方案以每次要调用该函数时都必须编写macrolet 部分或使用funcall 为代价来防止这种情况。如果这是经常需要的东西，可以编写一个宏来将所有这些包装在一个词法 flet 版本中。