defvar、defparameter、setf 和 setq 有什么区别

Question

我找到了Similar question。

但我不太明白那个解释。

所以我尝试使用以下示例运行 clisp：

  [1]> (defvar a 5)
  A
  [2]> (+ a 1)
  6
  [3]> (defparameter b 5)
  B
  [4]> (+ b 1)
  6
  [5]> (setf c 5)
  5
  [6]> (+ c 1)
  6
  [7]> (setq d 5)
  5
  [8]> (+ d 1)
  6
  [9]> (let ((a 500)) (+ a 1))
  501
  [10]> (let ((b 500)) (+ b 1))
  501
  [11]> (let ((c 500)) (+ c 1))
  501
  [12]> (let ((d 500)) (+ d 1))
  501
  [13]> 

我发现的完全一样。

我不知道他们有什么不同？

Answer 1

DEFPARAMETER 总是分配一个值。所以：

[1]> (defparameter a 1)
A
[2]> (defparameter a 2)
A
[3]> a
2

而DEFVAR 只执行一次，所以：

[4]> (defvar b 1)
B
[5]> (defvar b 2)
B
[6]> b
1

SETF 是一个在内部使用SETQ 的宏，但有更多的可能性。在某种程度上，它是一个更通用的赋值运算符。例如。使用SETF 你可以这样做：

[19]> (defparameter c (list 1 2 3))
[21]> (setf (car c) 42)                                              
42
[22]> c
(42 2 3)

但你不能用 SETQ 做到这一点：

[23]> (setq (car c) 42)                                              
*** - SETQ: (CAR C) is not a symbol
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [24]> abort

Answer 2

defvar 和 defparameter 都将变量声明为“动态范围变量”。此外，defparameter 将始终将变量的值设置为您作为第二个参数传入的值。这与defvar 不同，它只会设置之前没有设置过的变量的值。

在全局词法范围内使用setf 或setq 定义变量是未定义的。有些实现会为您创建一个动态范围的变量，有些则不会。第一次执行此操作时，您可能会看到诊断消息。

要了解词法范围变量和动态范围变量之间的区别，请尝试以下代码 sn-p：

* (defvar *a* 1)

*A*
* (let ((*a* 5)) (defun demo-a () *a*))

DEMO-A
* (let ((b 5)) (defun demo-b () b))

DEMO-B
* (let ((*a* 100)) (demo-a))

100
* (let ((b 100)) (demo-b))

5

这里我们创建了一个动态范围的变量和一个返回值的函数（定义在一个绑定中，在函数创建期间它具有不同的值，这不是必需的，只是为了看起来类似于 b 上的词法闭包)。然后我们定义一个新变量并定义一个函数返回它的值。

之后，我们调用这两个函数，在闭包中将一个值绑定到一个同名变量。在动态范围的情况下，它是同一个变量。在词法闭包情况 (b) 中，它们只是具有相同的名称，但不是同一个变量，因为它们是在两个不同的词法闭包中定义的。

至于setf 和setq 之间的区别，请尝试始终使用setf（我想不出任何(setq blah blahblah) 可以工作而(setf blah blahblah) 不会做同样事情的例子）。