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

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具有用于函数和值的单独命名空间。在计划中，我们可以设定价值 - 这也是所有。在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