SL No	函數(shù)和說(shuō)明
1	make-package package-name &key :nicknames :use 它創(chuàng)建并使用指定的包名返回一個(gè)新的包。
2	in-package package-name &key :nicknames :use 使得當(dāng)前的程序包。
3	in-package name 這個(gè)宏的原因package設(shè)置為名為name的包，它必須是一個(gè)符號(hào)或字符串。
4	find-package name 它搜索一個(gè)包。返回包的名稱(chēng)或昵稱(chēng);如果沒(méi)有這樣的程序包是否存在，find-package返回nil
5	rename-package package new-name &optional new-nicknames 它重命名一個(gè)包。
6	list-all-packages 該函數(shù)返回一個(gè)當(dāng)前存在于Lisp語(yǔ)言系統(tǒng)中的所有包的列表。
7	delete-package package 它會(huì)刪除一個(gè)包

創(chuàng)建一個(gè)LISP包

defpackage函數(shù)用于創(chuàng)建一個(gè)用戶(hù)定義的程序包。它的語(yǔ)法如下：

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

那么，

package-name是包的名稱(chēng)。
:use 關(guān)鍵字指定此包需要的包，即定義在此包中使用包的代碼函數(shù)。
:export 關(guān)鍵字指定為外部在這個(gè)包中的符號(hào)。

make-package函數(shù)也可用于創(chuàng)建一個(gè)包。其語(yǔ)法函數(shù)：

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

參數(shù)和關(guān)鍵字具有相同的含義。

使用包

一旦創(chuàng)建了一個(gè)包，則可以使用代碼在這個(gè)包中，使其成為當(dāng)前包。in-package宏使得環(huán)境中的當(dāng)前程序包。

示例

創(chuàng)建一個(gè)名為main.lisp一個(gè)新的源代碼文件，并在其中輸入如下代碼：

(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)

當(dāng)執(zhí)行代碼，它返回以下結(jié)果：

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

刪除包

delete-package宏允許刪除一個(gè)包。下面的例子演示了這一點(diǎn)：

示例

創(chuàng)建一個(gè)名為main.lisp一個(gè)新的源代碼文件，并在其中輸入如下代碼：

(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)
上一篇：LISP - 常量下一篇：LISP - 宏