用ASDF来组织Lisp程序编译和加载

一.建立示例程序hello world

1.编写asdf 文件hello.asd

[plain] view plaincopy

1. <span style="font-size:18px;">(defpackage :hello-system (:use #:asdf #:cl))  

2.   

3. (in-package :hello-system)  

4.   

5. (defsystem hello  

6.   :name "hello world"  

7.   :version "0.1"  

8.   :author "cq"  

9.   :depends-on ()  

10.   :components ((:file "package")  

11.                (:file "hello" :depends-on ("package"))))</span>  

这个是asd即编译和加载lisp的依赖关系

defpackage定义一个系统的包名 hello-sytem, 是从后面三个包集成来的。

in-package 导入包，如果要用一个包，必须用in-package导入这个包。

接下来的 defsystem 宏就定义了整个项目的代码结构，以及一些无用的附加信息。重要的部分是 components，它定义了两个有明确依赖关系的源代码文件 package.lisp, 和 hello.lisp，一般而言，对于稍具规模的正规 lisp 程序，至少需要三个代码文件：一个用来定义 package，一个存放配置信息(这里省掉)，一个放实际的业务逻辑代码。如果此项目依赖于其他 asdf 格式的 lisp 软件包，那么写在 depends-on 段里即可。

2.包定义文件package.lisp

[plain] view plaincopy

1. (in-package :hello-system)  

2.   

3. (defpackage hello  

4.   (:nicknames hello)  

5.   (:use #:cl)  

6.   (:export main *default-name*))  

定义了一个包，名为：hello,然后用 use 段设置这个包可以访问所有标准 Common Lisp 符号，根据 Lisp 标准他们位于 common-lisp 包里，这个包的昵称是 cl。最后我导出了两个 hello 包里的符号作为外部接口。

3.实现文件hello.lisp

[plain] view plaincopy

1. (in-package :hello)  

2.   

3. (defvar *default-name* "world")  

4.   

5. (defun main (args)  

6.   (if (null args)  

7.       (format t "hello ~a~%" *default-name*)  

8.       (hello args)))  

9.   

10. (defun hello(names)  

11.   (when names  

12.     (format t "hello ~a~%" (car names))  

13.     (hello (cdr names))))  

定义了两个函数main和hello

上述代码里有两个函数定义，main 函数是整个程序的入口，入口参数是一个列表，如果列表为空的话就产生默认输出然后程序结束，否则就调用另一个函数 hello 来实际产生针对每个列表元素的输出，注意到这个函数我采用了尾递归的写法，这在 lisp 程序里是非常自然的编程风格，完全没有任何性能折损而且相比循环结构节省了显式的循环变量。

二.编译和加载lisp文件

1，每个模块都要有一个描述文件，module-name.asd（本例中就是hello.asd）。该文件声明了模块名，和构成该模块的文件列表。可以描述lisp文件之间的依赖关系，也可以描述模块之间的依赖关系。asd文件，类似于VC的工程文件，类似于make文件。


加载模块的方法1：


(push #p”example/” asdf:*central-registry*) ：添加asd文件所在的目录


       (asdf:load-system “module-name”) ：加载一个模块(本例hello)

加载模块的方法2：


(load “example/module-name.asd”) ：读取asd文件的内容，不加载模块（）


(asdf:load-system “module-name”) ：加载一个模块

三.测试代码

[plain] view plaincopy

1. CL-USER: (hello:main nil)  

2. hello world  

3. NIL  

4. CL-USER: (hello:main '("a" "netease" "sa"))  

5. hello a  

6. hello netease  

7. hello sa  

8. NIL  

hello是包名，main是函数名

也可以用in-package先导入包，在直接输入函数名。

源代码下载地址：

http://download.csdn.net/detail/cq20110310/4988409

引用文章地址

1.http://tianchunbinghe.blog.163.com/blog/static/7001200692314249376/

2.http://blog.csdn.net/dragonzht/article/details/8299539