progn 图解，Lisp 基础知识图解系列.

vitalgg

progn
progn 的作用是将多个表达式集合到一起，形成一个大的表达式。

一些函数或操作符的参数为一个表达式，但是我们一个表达式表述不清楚时，可以用 progn 将多个表达式包裹，传递给函数或操作符。

如 while 的条件表达式，if 的 条件表达式以及真或假时的表达式。

while 或 if 需要知道的就是最后一个表达式的结果。

就跟别人向你借钱时一样，不管你前面说的多么天花乱坠、合情合理，别人只在乎最后的结果，借还是不借。

1. (while expr-condition
   
2.   exprs
   
3.   )
   
4. ;; 以expr3 的求值结果为依据， T 继续 ，nil 跳出。
   
5. 
   
6. (while (progn expr1 expr2 expr3)
   
7.   ....
   
8.   )
   
9. 
   
10. ;; 示例
    
11. (setq i 0)
    
12. (while (progn (princ i)(princ "\n") (< i 10))
    
13.   (princ "aaa\n")
    
14.   (setq i (1+ i))
    
15.   )
    
16. 
    
17. ;; IF
    
18. (if expr-condtion
    
19.     exprs-true
    
20.     exprs-false
    
21.     )
    
22. 
    
23. (if (progn expr1 expr2 expr3);; 以expr3 的求值结果为依据， T 执行 expr-true ，nil 执行 expr-false。
    
24.     (progn expr-true...)
    
25.     (progn expr-false ...))

(while expr-condition<br />   exprs<br />   )<br /> ;; 以expr3 的求值结果为依据， T 继续 ，nil 跳出。<br /> <br /> (while (progn expr1 expr2 expr3)<br />   ....<br />   )<br /> <br /> ;; 示例 <br /> (setq i 0)<br /> (while (progn (princ i)(princ "\n") (< i 10))<br />   (princ "aaa\n")<br />   (setq i (1+ i))<br />   )<br /> <br /> ;; IF <br /> (if expr-condtion<br />     exprs-true<br />     exprs-false<br />     )<br /> <br /> (if (progn expr1 expr2 expr3);; 以expr3 的求值结果为依据， T 执行 expr-true ，nil 执行 expr-false。<br />     (progn expr-true...)<br />     (progn expr-false ...))

全文： https://gitee.com/atlisp/atlisp- ... B%E9%98%B6/lisp.org