Common Lisp 参数传递的几种形式

1. 常规的命名参数：

(defun f (a b)
  (+ a b)) 

(f 1 2)

输出：

3

2. 可选参数：

(defun f (a b &optional c d)
  (list a b c d)) 

(f 1 2 3)

输出：

(1 2 3 NIL)

未显示提供的参数，会以 NIL 值代替。

可选参数可以指定默认值：

(defun f (a b &optional (c "Hello") d)
  (list a b c d))

(f 1 2)

输出：

(1 2 "Hello" NIL)

可选的默认值也可以通过引用前面的参数值来计算：

(defun make-rectangle (width &optional (height width))
  (list width height)) 

(make-rectangle 3 4)

输出：

(3 4)

(make-rectangle 3)

输出：

(3 3)

如果需要判断调用方是否提供了某个可选参数，则可以修改参数列表，在默认值后面添加一个变量名，其值为 t 的时候表示提供了该参数，否则为 NIL.

(defun f (a &optional (b 3 b-supplied-p))
  (list a b b-supplied-p))

输入：

(f 1)

输出：

(1 3 NIL)

输入：

(f 1 2)

输出：

(1 2 T)

3. rest 参数

如果除了命名参数和可选参数之外，还有更多传递的参数值，它们可以被收集到 &rest 符号后面指定的一个列表变量中。

比如，format 和 + 函数的形式可以定义为：

(defun format (stream string &rest values) …)

(defun + (&rest numbers) …)

例如，可以重定义一个 + 函数的形式：

(defun add (&rest values)
  (apply '+ values))

输入：

(add 1 2)

输出：

3

输入：

(add)

输出：

0

4. 关键字参数

关键字参数可以用来传递参数列表中任意一部分参数，而不管其所在的位置如何。

可以在命名参数、可选参数，和 rest 参数后面，添加 &key 符号，然后接着指定任意数目的关键字参数。

例子：

(defun f (a &optional b &rest values &key d (e 10) (f 11 f-supplied-p))
  (list a b values d e f)) 

COMMON-LISP-USER>
(f 1) 

(1 NIL NIL NIL 10 11) 

COMMON-LISP-USER>
(f 1 2 :d 99 :e 100) 

(1 2 (:D 99 :E 100) 99 100 11)

另外，还可以给关键字参数指定不同的调用名称和内部名称。这样可以提供比较有意义的 public API 的参数名，而内部实现使用简短的名称。但这个功能不是很常用。

COMMON-LISP-USER>
(defun foo (&key ((:apple a)) ((:box b)) ((:charlie c) 0 c-supplied-p))
  (list a b c c-supplied-p)) 

FOO 

COMMON-LISP-USER>
(foo :apple 10 :box 20 :charlie 30) 

(10 20 30 T)

5. Body 参数

用 &body 符号指定。和 &rest 大致相同，但是具体的 Common Lisp 实现可以扩展其特定的行为。

&body 有 pretty-printing 效果。

6. 组合使用各种形式的参数

如果一个函数需要用到所有类型的参数，那么他们的出现次序必须为：

命名参数，可选参数，rest 参数，关键字参数。

如果用到多种类型的参数，最好是把它们进行合适当的合并，或者简化成全部使用关键字参数。否则，可能会出现参数被“吞掉”的情况，从而导致不正确的行为。