如果函数带有&rest形参，那么任何满足了必要和可选形参之后的其余所有实参就将被收集到一个列表里成为该&rest形参的值。

关键字形参比前两者都更为灵活，可便于函数调用者直接指定某个形参所绑定的实参，且形参的赋值将是非必须的（类似可选形参）。

(defun foo (&key a b c) (list a b c ))

(foo ) –> (nil nil nil)
(foo :a 1 :c 3) –> (1 nil 3)

和funcall一样，APPLY的第一个参数是一个函数对象。但在这个函数对象之后，APPLY期待一个列表而非单独的实参。它将函数应该在列表中的值上。APPLY比FUNCALL更方便之处还在于，APPLY还接受孤立的实参，只要最后一个参数是个列表。

另一个定义宏的原则是，宏函数的参数总是不需要被quote引用的。比如一个宏的形式为如下将是不必要和错误的。
(mac '(while (not (null lst)) (print lst)(pop lst)))
P97 当LISP被解释而非编译时，宏展开期和运行期的区别不甚明显。

(defmacro do-primes (var-begin-end  body)
  (let ((var (car ,var-begin-end))
        (begin (cadr ,var-begin-end))
        (end (caddr ,var-begin-end)))
           `(do ((,var (next-primep ,begin) (next-primep (1+ ,var))))
                ((> ,var ,end))
              ,body)))

如下例，当宏函数有多个形参（这几个形参往往有完全不同的表达形式），编写宏并不像看上去那样容易。
首先，不得不利用宏定义函数defmacro 的自动解构能力，将用深层表表示的形参临时绑定，然后，将剩下的部分用剩余参数&rest body来绑定。
由此可见，当某个宏函数的定义需要使用到多个变量v1 v2 v3..时，应该尽量将它们用括号包装起来，便于在宏函数的定义和使用过程中解构变量和增加程序可读性、及时报错（当宏函数在展开期解构形参列表时）。

(defmacro do-primes ((var begin end)  &rest body)
           `(do ((,var (next-prime ,begin) (next-prime (1+ ,var))))
                ((> ,var ,end))
              ,@body))

(map 'vector #'* #(1 2 3) #(3 4 5)) -->  #(3 8 15)  ;和mapcar似无区别
(reduce #'+ '(1 2 3 4)) --> 10 ;将一个两参数函数用于列表的最初两个元素上，再将函数返回值和下一个元素用于该函数直到列表末尾，返回一个结果

理解闭包的关键在于，被捕捉的是绑定而不是变量的值。
(defparameter fn
#'(lambda () (setf count (1+ count))))

(defun foo (x) (setf x 10)))
(let (( y 20))
   (foo y)
   (print y))

将打印出20而非10，因为传递给foo的y的值在该函数中变成了的值，随后又被setf设置成新值。

(loop for  i from 1 to 10 collecting i)
(loop for x from 1 to 10  summing (expt x 2))
(loop for x across "the quick brown fox jump over the lazy dog " 
              counting (find x "aeiou"))    ;计算字符串中的元音字母
(loop for i below 10
              and a = 0 then b 
              and b = 1 then (+ b a)
              finally (return b))    ;计算斐波那契数
(defun primep (number)
           (when (> number 1)
             (loop for fac from 2 to (isqrt number) never (zerop (mod number fac)))))    ;use loop function to estimate whether a number is prime number

across,and,below,collecting,counting,finally,for,from,summing,then,to is all keywords for iteration,they allways appear with loop .

(make-pathname
:directory '(:absolute "foo" "bar")
:name "baz"
:type "txt") ;-> #p"/foo/bar/baz.txt"
为了程序易移植，不推荐完全手工生成路径名。
(make-pathname :type "html" :defaults input-file)基于已有的路径名使用MAKE-PATHNAME的关键字参数:defaults来构造新路径名。创建了一个带有.html扩展名的路径名，同时所有其他组件都与变量input-file中的路径名相同。

(directory (make-pathname :name :wild :type :wild :defaults "D:/working/")) ;列出d:/working/目录下的所有文件
(wild-pathname-p (make-pathname :name :wild)) -> T
(pathnamep #P"d:/working/t.lisp") -> T
(probe-file #P"d:/work.lisp") -> Nil

;在路径d:/working/中，对于路径名的name组件为bri的所有路径名，打印它们。
(walk-directory "d:/working/" #'(lambda(n)
                                             (print n))
                           :test #'(lambda(na)
                                     (equal "bri" (pathname-name na))))

关键字符号在书写上以一个冒号开始，这类符号在名为keyword的包中创建并自动导出。当读取器在kewword包中创建一个符号时，它也会定义一个以该符号作为其名字和值的常量。
(eql ':foo :foo) -> T
(symbol-name :foo) -> "FOO"

*package*储存当前使用的包名

cl-user为启动时默认的包，CL-USER使用了包COMMON-LISP，后者导出了语言标准定义的所有名字。因为，当在REPL中键入一个表达式时，所有诸如标准函数、宏、变量之类的名字都将转化成从COMMON-LISP包中导出的符号，而其他名字进入到COMMON-LISP-USER包中。名字*PACKAGE*一般是从COMMON-LISP包中导出的。
第三个标准包是KEYWORD包，它被LISP读取器用来创建以冒号开始的名字。你也可以使用显式的包限定方式引用任何关键字符号：
(eql :a keyword:a) -> T

要想查出一个符号最初来源于哪个包，可求值下列表达式：
(package-name (symbol-package 'car)) -> "COMMON-LISP"
(package-name (symbol-package 'foo)) -> "COMMON-LISP-USER"
要想看到在一个特定的实现中COMMON-LISP-USER都从哪些包中继承了符号，可以在REPL中求值下列表达式：
(mapcar #'package-name (package-use-list :cl-user))

使用COMMON-LISP-USER包对于在REPL中进行尝试是好的，不过一旦你开始编写实际程序就会需要定义新的包，这样不同的程序可以加载到同一个lisp环境中，而不会破坏彼此的名字。而当你编写可能用于不同环境中的库时，你会想要定义分开的包并导出那些构成了库的公共API的符号。
你可以通过宏DEFPACKAGE来定义新的包，在创建包的同时还能指定它使用哪些包，导出哪些包，以及它从其他包里导入什么符号，还可以创建隐蔽符号来解决冲突。

(defpackage :com.gigamonkeys.email-db
    (:use  :common-lisp))
(in-package :com.gigamonkeys.email-db)
(defpackage :com.gigamonkeys.text-db
  (:use :common-lisp)
  (:export :open-db
           :save
           :store))

这段代码定义了一个包，其继承了由COMMON-LISP包导出的所有符号。
然后定义一个新的包，将导出一些特定的名字，从而使其对于其他包可见。

(defpackage :com.gigamonkeys.email-db
  (:use :common-lisp 
        :com.gigamonkeys.text-db
        :com.acme.text)
  (:import-from :com.acme.email :parse-email-address)
  (:shadow :build-index))

假设你找到了一个可以处理E-mail消息的第三方函数库。该库的API所使用遥名字是从COM.ACME.EMAIL包中导出的，因此你可以通过使用这个包来轻松获得对这些名字的访问权限。但假设你只需要乃至这个库的一个函数，且其他的导出符号跟你已经使用的符号有冲突。此时，你可以用DEFPACKAGE中的:import-from子句只导入所需要的那一个符号parse-email-address.
这个:shadow 子句指明了不需要从使用的库中继承的符号build-index。如果你以后使用了另一个同样导出了BUILD-INDEX符号的包，包系统将会知道这里没有冲突，也就是说你问题希望使用来自COM.GIGAMONKEYS.EMAIL-DB的符号，而不是从其他包里继承的同名符号。