CommonLisp(四)----宏

         宏的存在让我们能够创造出新语法。我们先看一下内置的宏。

1.when

  when的语法如下：

 (when (condition)

            body )

例子：

#!/usr/bin/env clisp(defun foo (x y)        ;when宏可以执行满足条件的多个表达式        (when ( > x y)           (format t "~d is lager than ~d." x y)           (print "this is a print line.")))(foo 20 10)

2.unless

    unless的语法与when类似，只是condition为假时才执行表达式

  语法如下：

  (unless (condition)

            body)

例子：

#!/usr/bin/env clisp(defun foo (x y)         ;测试为假时执行            (unless (> x y)           (print "This is a print line.")))(foo 10 20)

3.cond

  cond宏可以测试多个condition,用以多个判断分支的丑陋语法。

 语法如下：

 (cond

    (condition1 form1)

    (condition2 form2)

    (condition3 form3))

各分支按顺序求值，直到其中的一个求值为真。然后对该分支中的其他表达式求值，并将做后一个表达式的结果作为返回值返回。

例子:

#!/usr/bin/env clisp(defun foo (x y)        (cond          ((> x y) (format t "~d is lager than ~d" x y) (- x y))          ((< x y) (format t "~d is less than ~d" x y) (+ x y))          ((= x y) (format t "~d is equal with ~d" x y) (* x y))        ));调用foo并打印返回值(print (foo 10 20))

4.not or and

这三个宏都是用来测试condition的，很好理解，暂不写例子了。

5.循环

  (1).dolist

   语法如下:

   (dolist (item list-form)

          body-form*)

例子如下：

    

#!/usr/bin/env clisp(defun foo (int_list)        (dolist (item int_list)           (if (> item 25)             (return))           (print item)))(foo (list 10 20 30))

  (2).dotimes

        语法如下：

     (dotimes (var count-form)

          body-form*)

例子，我们写一个打印x*y的乘法表：

#!/usr/bin/env clisp(defun foo (x y)      (dotimes (x 9)          (dotimes (y 9)            (format t "~3d " (* (1+ x) (1+ y)))          )          (format t "~%")      ))(foo 9 9)

结果如下：

  1   2   3   4   5   6   7   8   9   2   4   6   8  10  12  14  16  18   3   6   9  12  15  18  21  24  27   4   8  12  16  20  24  28  32  36   5  10  15  20  25  30  35  40  45   6  12  18  24  30  36  42  48  54   7  14  21  28  35  42  49  56  63   8  16  24  32  40  48  56  64  72   9  18  27  36  45  54  63  72  81

（3）do

  do宏可以实现多路推进并可定义步长，不过理解起来有些许晦涩，其语法如下

 (do (variable-definition*)

         (end-test-form result-form*)

         statement*)

其中variable-definition格式如下:

  (var init-form step-form)

当所有的step-form被求值之后 var才能被求值。如下是一个求第n项斐波那契数的函数：

#!/usr/bin/env clisp(defun foo(end)         (do ((n 0 (1+ n)) ;(var init step)               (cur 0 next) ;(var init step)               (next 1 (+ cur next))) ;(var init step)            ((= end n) cur)    ;(end-test-form result-form)        ))(print (foo 10))