`
deepfuture
  • 浏览: 4332666 次
  • 性别: Icon_minigender_1
  • 来自: 湛江
博客专栏
073ec2a9-85b7-3ebf-a3bb-c6361e6c6f64
SQLite源码剖析
浏览量:79404
1591c4b8-62f1-3d3e-9551-25c77465da96
WIN32汇编语言学习应用...
浏览量:68361
F5390db6-59dd-338f-ba18-4e93943ff06a
神奇的perl
浏览量:101484
Dac44363-8a80-3836-99aa-f7b7780fa6e2
lucene等搜索引擎解析...
浏览量:281140
Ec49a563-4109-3c69-9c83-8f6d068ba113
深入lucene3.5源码...
浏览量:14597
9b99bfc2-19c2-3346-9100-7f8879c731ce
VB.NET并行与分布式编...
浏览量:65552
B1db2af3-06b3-35bb-ac08-59ff2d1324b4
silverlight 5...
浏览量:31311
4a56b548-ab3d-35af-a984-e0781d142c23
算法下午茶系列
浏览量:45199
社区版块
存档分类
最新评论

lisp-progn

 
阅读更多

* (if (oddp 5) (progn (setf *xx* t) `ok) `allright)

 

OK

* (setf *xx* nil)

 

NIL

* *xx*

 

NIL

* (if (oddp 6) (progn (setf *xx* t) `ok) `allright)

 

ALLRIGHT

* *xx*

 

NIL

*

 

progn的目标是在某个语句前插入,如果这个语句得到了执行,那么插入的这个语句也会执行,并且先于这条语句执行

0[2] (if (oddp 5) (progn (setf *xx* 3) (setf *xx* (+ *xx* 2))) `allright)

 

5

0[2] (if (oddp 5) (progn (setf *xx* 3) (setf *xx* (+ *xx* 2))) `allright)

 

5

0[2] (if (oddp 5) (progn (setf *xx* 9) (setf *xx* (+ *xx* 2))) `allright)

 

11

0[2]

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics