scheme - 如何将函数复制到新符号？

Question

我有一个关于 Common Lisp 中函数副本的问题。

在计划中，我会选择：

(define (foo par1 par2) (+ par1 par2))
(define bar foo)
(print (bar 1 2)) ;; --> prints 3
(define (foo par1 par2) (* par1 par2))
(print (bar 1 2)) ;; --> prints again 3
(print (foo 1 2)) ;; --> prints 2

我如何使用 Common Lisp 做到这一点？

Answer 1

Scheme 和 Common Lisp 之间的区别之一是，Common Lisp 对函数和值有单独的命名空间。在 Scheme 中，我们可以设置值 - 这也是所有内容。在 Common Lisp 中，如果我们想要设置或更改符号的功能，我们需要设置功能而不是值。

SYMBOL-FUNCTION为您提供符号的功能。您可以使用该函数(setf symbol-function)来设置符号的功能。请参阅下面的示例：

CL-USER 50 > (defun foo (par1 par2) (+ par1 par2))
FOO

CL-USER 51 > (setf (symbol-function 'bar) (symbol-function 'foo))
#<interpreted function FOO 4060000C3C>

CL-USER 52 > (bar 1 2)
3

CL-USER 53 > (defun foo (par1 par2) (* par1 par2))
FOO

CL-USER 54 > (bar 1 2)
3

CL-USER 55 > (foo 1 2)
2