Question

我对Common Lisp中的功能副本有疑问。

在方案I中，请使用：

(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

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

1 个答案: