包

包

在编程语言的通用术语中，包是专为提供一种方法来保持一组名从另一个分开的。在一个包中声明的符号将不会与另一个声明的相同的符号相冲突。这样的包减少独立的代码模块之间的命名冲突。

LISP读取器会维护所有已发现的符号表。当它找到一个新的字符序列，它在符号表中创建一个新的符号和存储。这个表被称为一个包。

当前包是由特殊变量*package*引用。

有两个预定义的包在LISP：

• common-lisp - it包含了所有已定义的函数和变量符号。

• common-lisp-user - it 采用了common-lisp包和其他所有的包与编辑和调试工具;它简称为cl-user

LISP包函数

下表提供了用于创建，使用和操作封装最常用的功能：

创建一个LISP包

defpackage函数用于创建一个用户定义的程序包。它的语法如下：

defpackage :package-name
(:use :common-lisp ...)
(:export :symbol1 :symbol2 ...))

那么，

package-name是包的名称。

:use 关键字指定此包需要的包，即定义在此包中使用包的代码函数。

:export 关键字指定为外部在这个包中的符号。

make-package函数也可用于创建一个包。其语法函数：

make-package package-name &key :nicknames :use

参数和关键字具有相同的含义。

使用包

一旦创建了一个包，则可以使用代码在这个包中，使其成为当前包。in-package宏使得环境中的当前程序包。

示例

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(make-package :tom)
(make-package :dick)
(make-package :harry)
(in-package tom)
(defun hello () 
(write-line "Hello! This is Tom's Tutorials Yiibai")
)
(hello)
(in-package dick)
(defun hello () 
(write-line "Hello! This is Dick's Tutorials Yiibai")
)
(hello)
(in-package harry)
(defun hello () 
(write-line "Hello! This is Harry's Tutorials Yiibai")
)
(hello)
(in-package tom)
(hello)
(in-package dick)
(hello)
(in-package harry)
(hello)

当执行代码，它返回以下结果：

Hello! This is Tom's Tutorials Yiibai
Hello! This is Dick's Tutorials Yiibai
Hello! This is Harry's Tutorials Yiibai

删除包

delete-package宏允许删除一个包。下面的例子演示了这一点：

示例

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(adsbygoogle = window.adsbygoogle || []).push({});



(adsbygoogle = window.adsbygoogle || []).push({});
(make-package :tom)
(make-package :dick)
(make-package :harry)
(in-package tom)
(defun hello () 
(write-line "Hello! This is Tom's Tutorials Yiibai")
)
(in-package dick)
(defun hello () 
(write-line "Hello! This is Dick's Tutorials Yiibai")
)
(in-package harry)
(defun hello () 
(write-line "Hello! This is Harry's Tutorials Yiibai")
)
(in-package tom)
(hello)
(in-package dick)
(hello)
(in-package harry)
(hello)
(delete-package tom)
(in-package tom)
(hello)

当执行代码，它返回以下结果：

Hello! This is Tom's Tutorials Yiibai
Hello! This is Dick's Tutorials Yiibai
Hello! This is Harry's Tutorials Yiibai
*** - EVAL: variable TOM has no value