此教程是我花了一点时间和功夫整理出来的，希望能够帮到喜欢Lisp（Common Lisp）的朋友们。本人排版很烂还望多多海涵！

　　《Lisp简明教程》PDF格式下载

　　《Lisp简明教程》ODT格式下载

　　具体的内容我已经编辑好了，想下载的朋友可以用上面的链接。本人水平有限，如有疏漏还望之处（要是有谁帮我排排版就好了）还望指出！资料虽然是我整理的，但都是网友的智慧，如果有人需要转载，请至少保留其中的“鸣谢”页（如果能有我就更好了:-)）。

Lisp简明教程

整理人：Chaobs

邮箱：chaobs@outlook.com

博客：www.cnblogs.com/Chaobs

资料主要来源：http://www.yiibai.com/lisp/

版本：0.1.0

前言

为什么Lisp语言如此先进？

编者记

我一直都很喜欢Lisp这样的语言。

很多人会问XX语言流行吗？XX语言能赚钱吗？XX语言前景怎么样？其实，我们需要问的是：

这种语言好用吗？

这种语言强大吗？

这种语言的思维方式是什么？

当你能清楚的回答这样的问题时，这就是一种合适的语言了。Lisp就是这样的一门语言，具体的观点各位读者可以从前面的这篇《为什么Lisp语言如此先进？》窥见一二，但Lisp的真正魅力无疑还须各位亲自领略。我学习Lisp以来发现在国内学习Lisp最大的难处就是资料少，目前比较好买的书就是《实用Common
Lisp编程》，其它的大多老旧或者是某一特定领域的Lisp。即使是国内规模比较大的Lisp中文社区上，想要找到一份详尽且适合初学者的Lisp也并不是那么简单的。我很早就萌发了自己撰写一部关于Lisp编程的书籍的念头，正好在易百网（http://yiibai.com/）上发现了这一系列Lisp教程，这可真是雪中送炭。我将它们搜集起来一起编辑成这份文档，希望能各位热爱Lisp的朋友提供一点帮助。

在深入学习这份文档前，容我指出这份文档的不足：

1.没有给出Lisp环境搭建的指导，这方面的内容读者可以参见《实用Common
Lisp编程》或 者自行搜索SBCL，GCL等CL实现，在这份文档的下一版本中我会把这个坑给填上的，第一 版时间紧促就不管实现了:-)；

2.对于一些深入的主题没有初级，毕竟这只是一份“简易”的教程，想要深入学习的强烈推荐 ANSI的那本Common
Lisp手册，不过只有英文版的，《计算机程序的构造与解释》，这本书 我没看过，单据说是经典，还有一本《Common
Lisp符号计算引论》太复杂了，喜欢的可以自 己搜；

3.没有比较系统的案例，这点我觉得《实用Common
Lisp编程》已经写得很好了，下一版本时 我也会补充上的；

4.糟糕的排版，这个全怪我，我也没学过什么LaTex、Word排版，以前论文排版也是乱七八糟 的，还是别人帮我排的，如果你觉得不爽也请通过邮箱（chaobs@outlook.com）联系我，帮 我一起排版！

Chaobs

CUCS

2015年10月

鸣谢

一切荣耀属于网友

长工 http://www.yiibai.com/lisp/lisp_overview.html

YeaWind  http://www.yiibai.com/lisp/lisp_program_structure.html

ache038 http://www.yiibai.com/lisp/lisp_basic_syntax.html

逝风123 http://www.yiibai.com/lisp/lisp_data_types.html

曦花 http://www.yiibai.com/lisp/lisp_macros.html

yak http://www.yiibai.com/lisp/lisp_variables.html

黑狗 http://www.yiibai.com/lisp/lisp_constants.html

WiJQ http://www.yiibai.com/lisp/lisp_operators.html

快乐学习 http://www.yiibai.com/lisp/lisp_decisions.html

php小浩 http://www.yiibai.com/lisp/lisp_loops.html

stone-sun http://www.yiibai.com/lisp/lisp_functions.html

sallay http://www.yiibai.com/lisp/lisp_predicates.html

梦醒以后 http://www.yiibai.com/lisp/lisp_numbers.html

刘鑫华 http://www.yiibai.com/lisp/lisp_characters.html

绿水无痕 http://www.yiibai.com/lisp/lisp_arrays.html

kevinG http://www.yiibai.com/lisp/lisp_symbols.html

iTony http://www.yiibai.com/lisp/lisp_vectors.html

hibernate_jss http://www.yiibai.com/lisp/lisp_set.html

如是传统 http://www.yiibai.com/lisp/lisp_tree.html

郑小千 http://www.yiibai.com/lisp/lisp_hash_table.html

花田软件 http://www.yiibai.com/lisp/lisp_input_output.html

Anger_Coder http://www.yiibai.com/lisp/lisp_file_io.html

HerbertYang http://www.yiibai.com/lisp/lisp_structures.html

vigiles http://www.yiibai.com/lisp/lisp_packages.html

枫爱若雪  http://www.yiibai.com/lisp/lisp_error_handling.html

百mumu http://www.yiibai.com/lisp/lisp_clos.html

再次对这些网友的无私贡献表示最诚挚的感谢！

错误反馈

没有一本书没有BUG，这篇文档肯定存在很多知识上的漏洞、错别字、排版上的不合适，由于水平有限，欢迎指正。如果你发现任何问题或者对内容有补充，请不吝赐教！让我们一起把这本教程做大！

联系邮箱：chaobs@outlook.com
，
q578836573@163.com

博客：www.cnblogs.com/Chaobs

Chaobs

CUCS

2015年10月

目录

• LISP - 概述介绍

• LISP – 程序结构

• LISP – 基本语法

• LISP – 数据类型

• LISP – 宏

• LISP – 变量

• LISP – 常量

• LISP – 运算符

• LISP – 决策

• LISP – 循环

• LISP – 函数

• LISP – 谓词

• LISP – 字符

• LISP – 数组

• LISP – 符号

• LISP – 向量

• LISP – 集合

• LISP – 树

• LISP – 哈希表

• LISP – 输入和输出

• LISP – 文件I/O

• LISP – 结构

• LISP – 包

• LISP – 错误处理

• LISP – 对象系统（CLOS）

• 附录：我为什么喜欢Lisp语言

1 LISP - 概述介绍

Lisp是Fortran语言之后第二古老的高级编程语言，自成立之初已发生了很大变化，和一些方言一直存在在它的历史。今天，最广为人知的通用的Lisp方言Common
Lisp和Scheme。Lisp由约翰·麦卡锡在1958年发明，在麻省理工学院（MIT）。

该参考将带您通过简单实用的方法，同时学习Lisp程序设计语言。
Lisp是一门历史悠久的语言，全名叫LISt
Processor，也就是“表处理语言”，它是由John
McCarthy于1958年就开始设计的一门语言。和Lisp同时期甚至更晚出现的许多语言如Algo等如今大
多已经消亡，又或者仅仅在一些特定的场合有一些微不足道的用途，到现在还广为人知的恐怕只剩下了
Fortran和COBOL。但唯独Lisp，不但没有随着时间而衰退，反倒是一次又一次的焕发出了青春，从Lisp分支出来的Scheme、ML等语言
在很多场合的火爆程度甚至超过了许多老牌明星。那么这颗常青树
永葆青春的奥秘究竟在哪里呢？
如果你只接触过C/C++、Pascal这些“过程式语言”的话，Lisp可能会让你觉得十分不同寻常，首先吸引你眼球（或者说让你觉得混乱的）一定是
Lisp程序中异常多的括号，当然从现在的角度来讲，这种设计的确对程序员不大友好，不过考虑到五六十年代的计算机处理能力，简化语言本身的设计在那时算
得上是当务之急了。

1.1读者

该参考是不完全是为初学者准备的，只是帮助他们了解基本的到相关LISP编程语言的先进理念。但前提条件是假设你已经知道什么是计算机程序，什么是计算机编程语言，至少已有用一种高级语言编程的经历，且至少写过三个程序。

1.2 LISP - 历史介绍

约翰·麦卡锡发明LISP于1958年，FORTRAN语言的发展后不久。首次由史蒂夫·拉塞尔实施在IBM704计算机上。它特别适合用于人工智能方案，因为它有效地处理的符号信息。Common
Lisp的起源，20世纪80年代和90年代，分别接班人Maclisp像ZetaLisp和NIL(Lisp语言的新实施)等开发。

它作为一种通用语言，它可以很容易地扩展为具体实施。编写Common
Lisp程序不依赖于机器的具体特点，如字长等。

1.3 Common Lisp的特点

• 这是机器无关

• 它采用迭代设计方法，且易于扩展。

• 它允许动态更新的程序。

• 它提供了高层次的调试。

• 它提供了先进的面向对象编程。

• 它提供了方便的宏系统。

• 它提供了对象，结构，列表，向量，可调数组，哈希表和符号广泛的数据类型。

• 它是以表达为主。

• 它提供了一个面向对象的系统条件。

• 它提供完整的I/
  O库。

• 它提供了广泛的控制结构。

1.4 LISP的内置应用程序

大量成功的应用建立在Lisp语言。

• Emacs

• G2

• AutoCad

• Igor Engraver

• Yahoo Store

2 LISP - 程序结构

LISP表达式称为符号表达式或S-表达式。s表达式是由三个有效对象，原子，列表和字符串。任意的s-表达式是一个有效的程序。Lisp程序在解释器或编译的代码运行。解释器会检查重复的循环，这也被称为读
- 计算
- 打印循环(REPL)源代码。它读取程序代码，计算，并打印由程序返回值。

2.1 一个简单的程序

让我们写一个s-表达式找到的三个数字7,9和11的总和。要做到这一点，我们就可以输入在提示符的解释器
->:

)

LISP返回结果：

如果想运行同一程序的编译代码，那么创建一个名为myprog的一个LISP源代码文件。并在其中输入如下代码：

))

单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

2.2 Lisp使用前缀表示法

可能已经注意到，使用LISP前缀符号。在上面的程序中的+符号可以作为对数的求和过程中的函数名。在前缀表示法，运算符在自己操作数前写。例如，表达式，

a *(
b +
c )/
d

将被写为：

(/(*
a (+
b c))
d)

让我们再举一个例子，让我们写的代码转换为60o
F华氏温度到摄氏刻度：

此转换的数学表达式为：

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

))

当单击Execute按钮，或按下Ctrl+
E，MATLAB立即执行它，返回的结果是：

2.3 计算Lisp程序

计算LISP程序有两部分：

• 程序文本由一个读取器程序转换成Lisp对象

• 语言的语义在这些对象中的条款执行求值程序

计算过程采用下面的步骤：

• 读取器转换字符到LISP对象或S-表达式的字符串。

• 求值器定义为那些从s-表达式内置的Lisp语法形式。

计算第二个级别定义的语法决定了S-表达式是LISP语言形式。求值器可以作为一个函数，它接受一个有效的LISP语言的形式作为参数并返回一个值。这就是为什么我们把括号中的LISP语言表达，因为我们要发送的整个表达式/形式向求值作为参数的原因。

2.4 'Hello World' 程序

学习一门新的编程语言并没有真正起飞，直到学会如何迎接语言的整个世界，对吧！所以，创建一个名为main.lisp新的源代码文件，并在其中输入如下代码：

(write-line
"Hello World")(write-line
"I am at 'Tutorials Yiibai'!
Learning LISP")

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

HelloWorld
I am at 'Tutorials Yiibai'!Learning
LISP

3 LISP - 基本语法

3.1 LISP基本构建块

Lisp程序是由三个基本构建块：

• atom

• list

• string

一个原子是一个数字连续字符或字符串。它包括数字和特殊字符。以下是一些有效的原子的例子：

hello-from-tutorials-yiibai

name

*hello*Block#221
abc123

列表是包含在括号中的原子和/或其他列表的序列。以下是一些有效的列表的示例：

(
i am a list)(a
(
a b c)
d e fgh)(father
tom (
susan bill joe))(sun
mon tue wed thur fri sat)()

字符串是一组括在双引号字符。以下是一些有效的字符串的例子：

" I am a string""a ba c d efg #$%^&!""Please enter the following
details :""Hello from 'Tutorials
Yiibai'! "

3.2 添加注释

分号符号(;)是用于表示一个注释行。

例如，

(write-line
"Hello World");
greet the world

;
tell them your whereabouts

(write-line
"I am at 'Tutorials Yiibai'!
Learning LISP")

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

HelloWorld
I am at 'Tutorials Yiibai'!Learning
LISP

3.3 移动到下一节之前的一些值得注意的要点

以下是一些要点需要注意：

• 在LISP语言的基本数学运算是
  +,
  -, *, 和
  /

• Lisp实际上是一个函数调用f(x)为
  (f
  x)，例如
  cos(45)被写入为
  cos
  45

• LISP表达式是不区分大小写的，cos
  45 或COS
  45是相同的。

• LISP尝试计算一切，包括函数的参数。只有三种类型的元素是常数，总是返回自己的值：

• 数字

• 字母t，即表示逻辑真

• 该值为nil，这表示逻辑false，还有一个空的列表。

3.4 稍微介绍一下LISP形式

在前面的章节中，我们提到LISP代码计算过程中采取以下步骤：读取器转换字符到LISP对象的字符串或
s-expressions.求值器定义为那些从s-表达式内置的Lisp语法形式。计算第二个级别定义的语法决定了S-表达式是LISP语言形式。

现在，一个LISP的形式可以是：

• 一个原子

• 空或非名单

• 有符号作为它的第一个元素的任何列表

求值器可以作为一个函数，它接受一个有效的LISP语言的形式作为参数，并返回一个值。这个就是为什么我们把括号中的LISP语言表达，因为我们要发送的整个表达式/形式向求值作为参数的原因。

3.5 LISP命名约定

名称或符号可以包含任意数量的空白相比，开放和右括号，双引号和单引号，反斜杠，逗号，冒号，分号和竖线其他字母数字字符。若要在名称中使用这些字符，需要使用转义字符（）。一个名字可以包含数字，但不能全部由数字组成，因为那样的话它会被解读为一个数字。同样的名称可以具有周期，但周期不能完全进行。

3.6 使用单引号

LISP计算一切，包括函数的参数和列表的成员。有时，我们需要采取原子或列表字面上，不希望他们求值或当作函数调用。要做到这一点，我们需要先原子或列表中带有单引号。

下面的例子演示了这一点：

创建一个名为main.lisp文件，并键入下面的代码进去：

write-line
"single quote used, it
inhibits evaluation")(write
'(* 2 3))

(write-line
" ")

(write-line
"single quote not used, so expression evaluated")

(write (* 2 3))

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

single
quote used,
it inhibits evaluation

)

single
quote not
used,
so expression evaluated

4 LISP - 数据类型

在LISP中，变量没有类型的，但有数据对象。LISP数据类型可分类为：

• 标量类型
  -
  例如，数字类型，字符，符号等。

• 数据结构
  -
  例如，列表，向量，比特向量和字符串。

任何变量都可以采取任何的Lisp对象作为它的值，除非明确地声明它。虽然，这是没有必要指定一个Lisp变量的数据类型，但是，它有助于在一定的循环扩展，在方法声明和其他一些情况下，我们将在后面的章节中讨论。
该数据类型被布置成层次结构。数据类型是一组LISP对象和多个对象可能属于这样的一套。

• typep谓词用于发现一个对象是否属于一个特定的类型。

• type-of函数，返回给定对象的数据类型的类型。

4.1 在LISP类型说明符

类型说明符是数据类型的系统定义的符号。

array	fixnum	package	simple-string
atom	float	pathname	simple-vector
bignum	function	random-state	single-float
bit	hash-table	ratio	standard-char
bit-vector	integer	rational	stream
character	keyword	readtable	string
[common]	list	sequence	[string-char]
compiled-function	long-float	short-float	symbol
complex	nill	signed-byte	t
cons	null	simple-array	unsigned-byte
double-float	number	simple-bit-vector	vector

除了这些系统定义的类型，可以创建自己的数据类型。当一个结构类型是使用defstruct函数定义，结构类型的名称将成为一个有效的类型符号。

示例1

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

(setq
x )(setq
y 34.567)(setq
ch nil)(setq
n 123.78)(setq
bg 11.0e+4)(setq
r )(print
x)(print
y)(print
n)(print
ch)(print
bg)(print
r)

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

34.567

123.78

NIL

110000.0

实例2

接下来让我们看看前面的例子中使用的变量的类型。创建一个名为main.lisp新的源代码文件，并在其中输入如下代码：

(setq
x )(setq
y 34.567)(setq
ch nil)(setq
n 123.78)(setq
bg 11.0e+4)(setq
r )(print(type-of
x))(print(type-of
y))(print(type-of
n))(print(type-of
ch))(print(type-of
bg))(print(type-of
r))

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

(INTEGER
)

SINGLE-FLOAT

SINGLE-FLOAT

NULL

SINGLE-FLOAT

(INTEGER
)

5 LISP - 宏

宏可以扩展标准LISP的语法。从技术上讲，宏是一个函数，它接受一个s-expression作为参数，并返回一个LISP的形式，然后进行评估计算。

5.1 定义一个宏

在LISP中，一个名为宏使用另一个名为defmacro宏定义。定义一个宏的语法：

(defmacro
macro-name
(parameter-list)"Optional documentation
string."
body-form)

宏定义包含宏的名称，参数列表，可选的文档字符串，和Lisp表达式的体，它定义要由宏执行的任务。

实例

让我们写了一个名为setTo10简单的宏，将采取一系列并将其值设置为10。创建一个名为main.lisp新的源代码文件，并在其中输入如下代码：

defmacro
setTo10(num)(setq
num )(print
num))(setq
x )(print
x)(setTo10
x)

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

6 LISP - 变量

在LISP中，每个变量由一个'符号'表示。变量的名称是符号的名字，并将其存储在码元的存储单元。

6.1 全局变量

全局变量有永久值在整个LISP系统，并保持有效，直到指定的新值。全局变量是使用defvar结构一般声明。

例如：

(defvar
x )(write
x)

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

由于没有类型声明在LISP变量，可直接用setq一样构建一个符号指定一个值

例如，

->(setq
x )

上面的表达式的值10赋给变量x，也可以使用符号本身作为一个表达式来引用该变量。

符号值函数允许提取存储在符号存储位置的值。

示例

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

(setq
x )(setq
y )(format
t "x = ~2d y = ~2d ~%"
x y)(setq
x )(setq
y )(format
t "x = ~2d y = ~2d"
x y)

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

x

y

x
y

6.2 局部变量

局部变量在给定的过程中定义。被命名为一个函数定义中参数的参数也是局部变量。局部变量只能访问内相应的功能。像的全局变量，也可以使用本setq一样构建体被创建的局部变量。还有其他两种结构-
let和prog创建局部变量。

该let结构的语法如下：

(let((var1
val1)(var2
val2)..(varn
valn))<s-expressions>)

其中var1,
var2, ..varn 是变量名和val1,
val2, .. valn是分配给相应的变量的初始值。

当执行let，每个变量被分配了各自的值，最后的s-expression。则返回最后一个表达式的值。

如果不包括的变量的初始值，它被分配到nil。

例子

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

(let((x
'a)

(y 'b)(z
'c))

(format t "x = ~a y = ~a z = ~a" x y
z))

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

x =
A y =
B z =
C

该编结构也有局部变量作为第一个参数，它后面是prog的主体，以及任意数量s-expressions的列表。

该编函数执行s-expressions序列的列表，并返回零，除非遇到函数调用名返回。然后函数参数计算并返回。

例子

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

(prog
((x
'(a b c))

))(z
'(p q 10)))

(format t "x = ~a y = ~a z = ~a" x y
z))

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

x =(A
B C)
y )
z =(P
Q )

7 LISP - 常量

在LISP中，常量变量在程序执行期间，从来没有改变它们的值。常量使用defconstant结构声明。

例子

下面的例子显示了声明一个全局常量PI和以后使用的函数命名area-circle计算圆的面积的值。该函数defun结构用于定义一个函数，我们将看看它在“函数”一章。创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(defconstant
PI 3.141592)(defun
area-circle(rad)(terpri)(format
t "Radius: ~5f"
rad)(format
t "~%Area: ~10f"(*
PI rad rad)))(area-circle
)

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

Radius:10.0Area:314.1592

8 LISP - 运算符

运算符是一个符号，它告诉编译器执行特定的数学或逻辑操作。
LISP允许在众多的数据业务，通过各种函数，宏和其他结构的支持。允许对数据的操作都可以归类为：

• 算术运算

• 比较操作

• 逻辑运算

• 位运算

8.1 算术运算

下表列出了所有支持的LISP算术运算符。假设变量A=10和变量B=20则：

运算符	描述	Example
+	增加了两个操作数	(+ A B) = 30
-	从第一数减去第二个操作数	(- A B)= -10
*	乘两个操作数	(* A B) = 200
/	通过取消分子除以分子	(/ B A) = 2
mod,rem	模运算符和其余整数除法后	(mod B A ) = 0
incf	递增运算符，所指定的第二个参数增加整数值	(incf A 3) = 13
decf	递减操作符，通过指定的第二个参数减小整数值	(decf A 4) = 9

例子

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

(setq
a )(setq
b )(format
t "~% A + B = ~d"(+
a b))(format
t "~% A - B = ~d"(-
a b))(format
t "~% A x B = ~d"(*
a b))(format
t "~% B / A = ~d"(/
b a))(format
t "~% Increment A by 3 = ~d"(incf
a ))(format
t "~% Decrement A by 4 = ~d"(decf
a ))

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

A +
B
A -
B
A x B
B /
A Increment
A Decrement
A

8.2 比较操作

下表列出了所有支持的LISP关系运算符的数字之间进行比较。然而不像其他语言的关系运算符，LISP的比较操作符可能需要超过两个操作数，他们在只有数字工作。

假设变量A=10和变量B=20，则：

Operator	描述	Example
=	检查如果操作数的值都相等与否，如果是的话那么条件为真。	(= A B)= true.
/=	检查如果操作数的值都不同，或没有，如果值不相等，则条件为真。	(/= A B) =true.
>	检查如果操作数的值单调递减。	(> A B) !=true.
<	检查如果操作数的值单调递增。	(< A B) = true.
>=	如有左操作数的值大于或等于下一个右操作数的值，如果是则条件检查为真。	(>= A B) !=true.
<=	如有左操作数的值小于或等于其右操作数的值，如果是，则条件检查为真。	(<= A B) = true.
max	它比较两个或多个参数，并返回最大值。	(max A B) 返回20
min	它比较两个或多个参数，并返回最小值。	(min A B) 返回20

示例

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

(setq
a )(setq
b )(format
t "~% A = B is ~a"(=
a b))(format
t "~% A /= B is ~a"(/=
a b))(format
t "~% A > B is ~a"(>
a b))(format
t "~% A < B is ~a"(<
a b))(format
t "~% A >= B is ~a"(>=
a b))(format
t "~% A <= B is ~a"(<=
a b))(format
t "~% Max of A and B is ~d"(max
a b))(format
t "~% Min of A and B is ~d"(min
a b))

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

A
=
B is
NIL

A
/=
B is
T

A
>
B is
NIL

A
<
B is
T

A
>=
B is
NIL

A
<=
B is
T

Max
of A and
B Min
of A and
B

8.3 布尔值逻辑操作

Common
Lisp中提供了三种逻辑运算符：AND，OR，而不是运算符的布尔值。假定A=nil，B=5，那么

运算符	描述	示例
and	这需要任意数量的参数。该参数是从左向右计算。如果所有参数的计算结果为非零，那么最后一个参数的值返回。否则就返回nil。	(and A B) = NIL.
or	这需要任意数量的参数。该参数是从左向右计算的，直到一个计算结果为非零，则此情况下返回参数值，否则返回nil。	(or A B) = 5.
not	它接受一个参数，并返回t，如果参数的计算结果为nil。	(not A) = T.

示例

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

(setq
a )(setq
b )(format
t "~% A and B is ~a"(and
a b))(format
t "~% A or B is ~a"(or
a b))(format
t "~% not A is ~a"(not
a))(terpri)(setq
a nil)(setq
b )(format
t "~% A and B is ~a"(and
a b))(format
t "~% A or B is ~a"(or
a b))(format
t "~% not A is ~a"(not
a))(terpri)(setq
a nil)(setq
b )(format
t "~% A and B is ~a"(and
a b))(format
t "~% A or B is ~a"(or
a b))(format
t "~% not A is ~a"(not
a))(terpri)(setq
a )(setq
b )(setq
c )(setq
d )(format
t "~% Result of and
operation on 10, 0, 30, 40 is ~a"(and
a b c d))(format
t "~% Result of and
operation on 10, 0, 30, 40 is ~a"(or
a b c d))(terpri)(setq
a )(setq
b )(setq
c nil)(setq
d )(format
t "~% Result of and
operation on 10, 20, nil, 40 is ~a"(and
a b c d))(format
t "~% Result of and
operation on 10, 20, nil, 40 is ~a"(or
a b c d))

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

A
and
B
A or
B not
A is
NIL

A
and
B is
NIL

A
or
B not
A is
T

A
and
B is
NIL

A
or
B not
A is
T

Result
of and
operation on Result
of and
operation on

Result
of and
operation on is
NIL

Result
of and
operation on

请注意，逻辑运算工作，布尔值，其次，数字为零，NIL不是一样的。

8.4 对数位运算

位运算符位工作并进行逐位操作。对于按位与，或，和XOR运算的真值表如下：

p	q	p and q	p or q	p xor q

Assumeif
A ;and
B ;
now in
binary format they will be as
follows:
A
B -----------------
A and
B
A or
B
A xor B not
A

通过LISP支持位运算符列于下表中。假设变量A=60和变量B=13，则：

操作符	描述	Example
logand	这将返回位逻辑的参数和。如果没有给出参数，则结果为-1，这是该操作的标识。	(logand a b)) = 12
logior	这将返回位逻辑包括它的参数或。如果没有给出参数，那么结果是零，这是该操作的标识。	(logior a b) = 61
logxor	这将返回其参数的按位逻辑异或。如果没有给出参数，那么结果是零，这是该操作的标识。	(logxor a b) = 49
lognor	这不返回的逐位它的参数。如果没有给出参数，则结果为-1，这是该操作的标识。	(lognor a b) = -62,
logeqv	这将返回其参数的逐位逻辑相等（也称为异或非）。如果没有给出参数，则结果为-1，这是该操作的标识。	(logeqv a b) = -50

示例

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

(setq
a )(setq
b )(format
t "~% BITWISE AND of a and b
is ~a"(logand
a b))(format
t "~% BITWISE INCLUSIVE OR
of a and b is ~a"(logior
a b))(format
t "~% BITWISE EXCLUSIVE OR
of a and b is ~a"(logxor
a b))(format
t "~% A NOT B is ~a"(lognor
a b))(format
t "~% A EQUIVALANCE B is ~a"(logeqv
a b))(terpri)(terpri)(setq
a )(setq
b )(setq
c )(setq
d )(format
t "~% Result of bitwise and
operation on 10, 0, 30, 40 is ~a"(logand
a b c d))(format
t "~% Result of bitwise or
operation on 10, 0, 30, 40 is ~a"(logior
a b c d))(format
t "~% Result of bitwise xor
operation on 10, 0, 30, 40 is ~a"(logxor
a b c d))(format
t "~% Result of bitwise
eqivalance operation on 10, 0, 30, 40 is ~a"(logeqv
a b c d))

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

BITWISE
AND of a and
b
BITWISE INCLUSIVE OR of a and
b
BITWISE EXCLUSIVE OR of a and
b
A NOT B
A EQUIVALANCE B

Result
of bitwise and
operation on Result
of bitwise or
operation on Result
of bitwise xor operation on Result
of bitwise eqivalance operation on

9 LISP - 决策

决策结构需要程序员指定一个或多个条件由程序进行评估或测试，以及要执行的语句或语句如果条件被确定为true，如果条件被确定为false那么选择要执行其他语句。

下面是在大多数编程语言中一个典型的决策结构的一般形式为：

LISP提供了以下类型的决策构造。

Construct	描述
cond	这个结构是用于用于检查多个测试行动作条件。它可以嵌套if或其他编程语言语句。
if	if结构有多种形式。在最简单的形式，它后面跟着一个测试条，测试操作和一些其它相应措施(次)。如果测试子句的值为true，那么测试的动作被执行，否则，由此产生的子句求值。
when	在最简单的形式，它后面跟着一个测试条和测试操作。如果测试子句的值为true，那么测试的动作被执行，否则，由此产生的子句求值。
case	这种结构实现了像cond 构造多个测试行动语句。但是，它会评估的关键形式，并允许根据该键的形式评价多个行动语句。

9.1 LISP的cond特殊构造

在LISP语言中cond结构是最常用的，以允许分支。

cond的语法是：

(cond
(test1
action1)(test2
action2)...(testn
actionn))

在cond
语句中每个子句包含一个条件测试，并要执行的动作。

如果第一次测试下面的芯线，为test1，被评估为true，那么相关的行动的一部分，
action1执行，返回它的值，及本子句的其余部分被跳过。如果test1的计算结果是nil，然后控制移动到第二个子句，而不执行action1，和相同的流程进行后续处理。如果没有试验条件计算结果为真，那么cond语句返回nil。

示例

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

(setq
a )(cond
((>
a )(format
t "~% a is less than 20"))(t
(format
t "~% value of a is ~d "
a)))

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

value of a

请注意，第二个子句中t保证的是，如果没有其他的将最后完成的动作。

9.2 if结构

如果该宏后跟一个测试子句计算为
t
或nil。如果测试子句计算到t，然后按照测试子句的动作被执行。如果它是零，那么下一个子句进行评估计算。

if的语法：

(if
(test-clause) (<action1) (action2))

示例1

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

(setq
a )(if(>
a )(format
t "~% a is less than 20"))(format
t "~% value of a is ~d "
a)

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

value of a

示例2

if子句后面可以跟一个可选的then子句：

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

(setq
a )(if(>
a )then(format
t "~% a is less than 20"))(format
t "~% value of a is ~d "
a)

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

a is
less than
value of a

示例3

还可以创建使用if子句的if-then-else类型声明。

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

(setq
a )(if(>
a )(format
t "~% a is greater than 20")

(format
t "~% a is less than 20"))(format
t "~% value of a is ~d "
a)

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

a is
greater than
value of a

9.3 when构造

该when宏，后面跟着一个测试子句计算为t或为零。如果测试条被评估计算为nil，则任何形式的评估及nil返回，但是它的测试结果为t，则下面的测试条的动作被执行。

when宏的语法：

(when
(test-clause) (<action1) )

示例

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

(setq
a )(when(>
a )(format
t "~% a is greater than
20"))(format
t "~% value of a is ~d "
a)

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

a is
greater than
value of a

9.4 case构造

case结构实现像cond结构多个测试动作语句。但是，它会评估的键形式，并允许根据该键的形式评价多个动作语句。

该case宏的语法是：

The
template for CASE is:

(case(keyform)((key1)(action1
action2 ...))((key2)(action1
action2 ...))...((keyn)(action1
action2 ...)))

(setq
day )(case
day

(format
t (format
t (format
t (format
t (format
t (format
t (format
t "~% Sunday")))

当您单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

Thursday

10 LISP - 循环

可能有一种情况，当需要执行代码块多次。循环语句可以让我们执行一个语句或语句组多次，下面是在大多数编程语言中的循环语句的一般形式为：

LISP提供的结构来处理循环要求以下类型。

Construct	描述
loop	循环loop结构是迭代通过LISP提供的最简单的形式。在其最简单的形式，它可以重复执行某些语句(次)，直到找到一个return语句。
loop for	loop结构可以实现一个for循环迭代一样作为最常见于其他语言。
do	do 结构也可用于使用LISP进行迭代。它提供了迭代的一种结构形式。
dotimes	dotimes构造允许循环一段固定的迭代次数。
dolist	dolist来构造允许迭代通过列表的每个元素。

10.1 循环loop结构

循环loop结构是迭代通过LISP提供的最简单的形式。在其最简单的形式，它可以重复执行某些语句(次)，直到找到一个return语句。它的语法如下：

(loop
(s-expressions))

例子

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

(setq
a )(loop

(setq
a (+
a ))(write
a)(terpri)(when(>
a )(return
a)))

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

请注意，没有return语句，循环宏会产生一个无限循环。

10.2 循环的构造

loop结构可以实现一个for循环迭代一样作为最常见于其他语言。它可以

• 设置为迭代变量

• 指定表达式（s）表示，将有条件终止迭代

• 对于执行某些任务在每次迭代中指定表达式的结果

• 做一些任务而退出循环之前指定表达式（s）和表达式

在for循环的结构如下几种语法：

(loop
for
loop-variable
in<a
list>do(action))

(loop
for
loop-variable
from
value1 to value2

do(action))

示例1

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

(loop
for
x in'(tom dick harry)

do (format t " ~s" x)

)

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

TOM DICK
HARRY

示例2

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

(loop
for
a
to do(print
a))

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

示例3

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

(loop
for
x
to if(evenp
x)do(print
x))

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

10.3 do构造

do结构也可用于使用LISP进行迭代。它提供了迭代的一种结构形式。

do语句的语法：

(do(variable1
value1 updated-value1)(variable2
value2 updated-value2)(variable3
value3 updated-value3)...(test
return-value)(s-expressions))

每个变量的初始值的计算和结合到各自的变量。每个子句中更新的值对应于一个可选的更新语句，指定变量的值将在每次迭代更新。每次迭代后，将测试结果进行评估计算，并且如果它返回一个nil
或
true，则返回值被求值并返回。最后一个S-表达式（s）是可选的。如果有，它们每一次迭代后执行，直到测试返回true值。

示例

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

(do((x

x))(y
(-
y )))((=
x y)(-
x y))(format
t "~% x = ~d y = ~d"
x y))

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

x
y
x
y
x
y
x
y
x
y

10.4 dotimes 构造

dotimes构造允许循环一段固定的迭代次数。

实例

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

(dotimes
(n
)(print
n)(prin1
(*
n n)))

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

10.5 dolist 构造

dolist来构造允许迭代通过列表的每个元素。

实例

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

(dolist
(n
'(1 2 3 4 5 6 7 8 9))

(format t "~% Number: ~d Square: ~d"
n (* n n)))

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

10.6 退出块

块返回，从允许从正常情况下的任何错误的任何嵌套块退出。块功能允许创建一个包含零个或多个语句组成的机构命名块。语法是：

(block
block-name(......))

返回
-
从函数接受一个块名称和可选（默认为零）的返回值。

下面的例子演示了这一点：

示例

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

(defun
demo-function(flag)(print'entering-outer-block)

(block outer-block

(print 'entering-inner-block)(print(block
inner-block

(if
flag

(return-from
outer-block
)(return-from
inner-block
))(print'This-wil--not-be-printed)))

(print 'left-inner-block)(print'leaving-outer-block)

t))

(demo-function
t)

(terpri)

(demo-function nil)

当单击Execute按钮，或按下Ctrl+
E，LISP立即执行它，返回的结果是：

ENTERING-OUTER-BLOCK

ENTERING-INNER-BLOCK

ENTERING-OUTER-BLOCK

ENTERING-INNER-BLOCK

LEFT-INNER-BLOCK

LEAVING-OUTER-BLOCK

11 LISP - 函数

函数是一组一起执行任务的语句。可以把代码放到单独的函数。如何划分代码之前不同的功能，但在逻辑上划分通常是这样每个函数执行特定的任务。

11.1 LISP-函数定义

命名函数defun宏用于定义函数。该函数的defun宏需要三个参数：

• 函数名称

• 函数的参数

• 函数的体

defun语法是：

(defun
name (parameter-list)"Optional documentation
string."
body)

让我们举例说明概念，简单的例子。

例子
1

让我们编写了一个名为averagenum，将打印四个数字的平均值的函数。我们将会把这些数字作为参数。创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(defun
averagenum (n1
n2 n3 n4)(/(+
n1 n2 n3 n4))(write(averagenum
))

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

示例
2

让我们定义和调用函数，将计算出的圆的面积，圆的半径被指定作为参数的函数。创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(defun
area-circle(rad)"Calculates area of a circle
with given radius"(terpri)(format
t "Radius: ~5f"
rad)(format
t "~%Area: ~10f"(*3.141592
rad rad)))(area-circle
)

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

请注意：

• 可以提供一个空的列表作为参数，这意味着函数没有参数，该列表是空的，表示为()。

• LISP还允许可选，多个和关键字参数。

• 文档字符串描述了函数的目的。它与函数名相关联，并且可以使用文档函数来获得。

• 函数的主体可以包含任意数量的Lisp表达式。

• 在主体内的最后一个表达式的值返回函数的值。

• 还可以使用返回
  -
  从特殊的运算符函数返回一个值。

我们在简要讨论上述概念。更多高级主题请自行搜索或等待下一版加入（编者注）

• 可选参数

• 其余部分参数

• 关键字参数

• 从函数返回的值

• lambda函数

• 映射函数

11.2 可选参数

可以使用可选参数定义一个函数。要做到这一点，需要把符号与可选的可选参数的名称之前。我们将只是显示它接收的参数的函数。

示例

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

(defun
show-members
(a
b &optional
c d)(write
(list
a b c d)))(show-members
)(terpri)(show-members
'a 'b
'c 'd)(terpri)(show-members
'a 'b)(terpri)(show-members
)

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

NIL)(A
B C D)(A
B NIL NIL)

请注意，参数c和d是在上面的例子中，是可选参数。

11.3 其余部分参数

有些函数需要采用可变数目的参数。例如，我们使用格式化函数需要两个必需的参数，数据流和控制字符串。然而，该字符串后，它需要一个可变数目的取决于要显示的字符串中的值的数目的参数。同样，+
函数，或
*
函数也可以采取一个可变数目的参数。可以提供这种可变数目的使用符号与其余参数。下面的例子说明了这个概念：

示例

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

(defun
show-members
(a
b &rest
values)(write
(list
a b values)))(show-members
)(terpri)(show-members
'a 'b
'c 'd)(terpri)(show-members
'a 'b)(terpri)(show-members
)(terpri)(show-members
)

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

))(A
B (C
D))(A
B NIL))

11.4 关键字参数

关键字参数允许指定哪个值与特定的参数。它使用的是
&key
符号表示。当发送的值到该函数必须先于值
:parameter-name.下面的例子说明了这个概念。

例子

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

(defun
show-members
(&key
a b c d )(write
(list
a b c d)))(show-members
:a
:c
:d
)(terpri)(show-members
:a
'p :b 'q
:c
'r :d 's)(terpri)(show-members
:a
'p :d 'q)(terpri)(show-members
:a
:b
)

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

NIL )(P
Q R S)(P
NIL NIL Q
NIL NIL)

11.5 从函数返回的值

默认情况下，在LISP函数返回最后一个表达式作为返回值的值。下面的例子将证明这一点。

示例
1

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

(defun
add-all(a
b c d)(+
a b c d))(setq
sum (add-all
))(write
sum)(terpri)(write
(add-all
23.456.734.910.0))

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

125.0

但是，可以使用返回-
从特殊的操作符立即从函数返回任何值。

示例
2

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

(defun
myfunc (num)(return-from
myfunc )
num)(write
(myfunc
))

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

更改一点点代码：

(defun
myfunc (num)(return-from
myfunc )
write num)(write
(myfunc
))

它仍然返回：

11.6 lambda函数

有时，可能需要一个函数只在一个程序中的位置和功能是如此的微不足道，可能不给它一个名称，也可以不喜欢它存储在符号表中，宁可写一个未命名或匿名函数。LISP允许编写评估计算在程序中遇到的匿名函数。这些函数被称为Lambda函数。可以使用lambda表达式创建这样的功能。lambda表达式语法如下：

(lambda(parameters)
body)

lambda形式可以不进行评估计算，它必须出现只有在LISP希望找到一个函数。

示例

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

(write
((lambda(a
b c x)(+(*
a (*
x x))(*
b x)
c))

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

11.7 映射函数

映射函数是一组函数，可以连续地施加于元件中的一个或多个列表。应用这些功能列表的结果被放置在一个新的列表，而新的列表返回。

例如，mapcar函数处理的一个或多个列表连续元素。

在mapcar函数的第一个参数应该是一个函数，其余的参数是该函数的应用列表（次）。

函数的参数被施加到连续的元素，结果为一个新构造的列表。如果参数列表是不相等的长度，然后映射的过程停止在达到最短的列表的末尾。结果列表将元素作为最短输入列表的数目相同。

示例
1

让我们从一个简单的例子和数字1
添加到每个列表的元素(
23 34 45 56 67 78 89)。

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

(write
(mapcar
)))

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

)

示例
2

让我们写这将多维数据集列表中的元素的函数。让我们用一个lambda函数用于计算数字的立方。

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

(defun
cubeMylist(lst)(mapcar
#'(lambda(x) (* x x x)) lst))(write
(cubeMylist
'(2 3 4 5 6 7 8 9)))

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

)

示例3

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

(write
(mapcar
)'( 2 4 6 8)))

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

)

12 LISP - 谓词

谓词是函数，测试其参数对一些特定的条件和返回nil，如果条件为假，或某些非nil值条件为true。

下表显示了一些最常用的谓词：

谓词	描述
atom	它接受一个参数，并返回t如果参数是一个原子或，否则nil。
equal	它有两个参数，并返回t，如果他们在结构上相同或否则nil
eq	它有两个参数，并返回t，如果它们是相同的相同的对象，共享相同的内存位置或否则nil
eql	它有两个参数，并返回t如果参数相等，或者如果他们是同一类型具有相同值的数字，或者如果他们是代表相同的字符的字符对象，否则返回nil
evenp	它接受一个数字参数，并返回t如果参数为偶数或否则为nil。
oddp	它接受一个数字参数，并返回t如果参数为奇数或否则为nil。
zerop	它接受一个数字参数，并返回t如果参数是零或否则为nil。
null	它接受一个参数，并返回t，如果参数的计算结果为nil，否则返回nil。
listp	它接受一个参数，并返回t如果参数的计算结果为一个列表，否则返回nil。
greaterp	这需要一个或多个参数，并返回t，如果不是有一个单一的参数或参数是从左到右，或如果无先后，否则为nil。
lessp	这需要一个或多个参数，并返回t，如果不是有一个单一的参数或参数是从左到右依次更小的向右，或否则为nil.
numberp	它接受一个参数，并返回t如果参数是一个数字，否则为nil。
symbolp	它接受一个参数，并返回t如果参数是一个符号，否则返回nil。
integerp	它接受一个参数，并返回t如果参数是一个整数，否则返回nil。
rationalp	它接受一个参数，并返回t如果参数是有理数，无论是比例或数量，否则返回nil>。
floatp	它接受一个参数，并返回t当参数则返回一个浮点数否则为nil。
realp	它接受一个参数，并返回t如果参数是一个实数，否则返回nil。
complexp	它接受一个参数，并返回t如果参数是一个复数，否则返回nil。
characterp	它接受一个参数，并返回t如果参数是一个字符，否则返回nil。
stringp	它接受一个参数，并返回t，如果参数是一个字符串对象，否则返回nil。
arrayp	它接受一个参数，并返回t如果参数是一个数组对象，否则返回nil。
packagep	它接受一个参数，并返回t，如果参数是一个包，否则返回nil。

示例
1

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

(write
(atom
'abcd))

(terpri)

(write
(equal 'a
'b))

(terpri)

(write
(evenp 10))

(terpri)

(write
(evenp 7 ))

(terpri)

(write
(oddp 7 ))

(terpri)

(write
(zerop 0.0000000001))

(terpri)

(write
(eq 3 3.0 ))

(terpri)

(write
(equal 3 3.0 ))

(terpri)

(write
(null nil ))

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

T

NIL

T

NIL

T

NIL

NIL

NIL

T

示例2

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

(defun
factorial (num)(cond
((zerop
num)(t
(*
num (factorial
(-
num ))))))(setq
n )(format
t "~% Factorial ~d is: ~d"
n (factorial
n))

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

13 LISP - 数字

数字——通过LISP支持数类型是：

• Integers

• Ratios

• Floating-yiibai
  numbers

• Complex
  numbers

下图显示的数量和层次在LISP提供的各种数字数据类型：

13.1 在LISP各种数值类型

下表描述了LISP语言提供的各种数字类型的数据：

Data type	描述
fixnum	这个数据类型表示的整数哪些不是太大，大多在范围-215到215-1(它是依赖于机器)
bignum	这些都是非常大的数字有大小受限于内存中分配LISP量，它们不是长整数数字。
ratio	表示两个数中的分子/分母形式的比率。在/函数总是产生结果的比率，当其参数都是整数。
float	它表示非整数。还有随着精密四个浮点数据类型。
complex	它表示复数，这是由#C表示。实部和虚部可以是两者或者理性或浮点数。

示例

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

(write
))(terpri)(write
(+(/ 1
2) (/)))(terpri)(write
(+#c( 1 2) #c( 3 -4)))

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

#C(4 -2)

13.2 数字函数

下表描述了一些常用的数值函数：

Function	描述
+, -, *, /	各算术运算
sin, cos, tan, acos, asin, atan	相应的三角函数
sinh, cosh, tanh, acosh, asinh, atanh	相应的双曲函数
exp	幂函数，计算ex
expt	幂函数，需要基础和幂两者
sqrt	它可以计算一个数的平方根
log	对数函数。它的一个参数给出，则它计算其自然对数，否则将第二个参数被用作基数
conjugate	它计算一个数的复共轭，如有任何实数，它返回数字本身
abs	它返回一个数的绝对值（或幅度）
gcd	它可以计算给定数字的最大公约数
lcm	它可以计算给定数的最小公倍数
isqrt	它提供了最大的整数小于或等于一个给定的自然数的精确平方根。
floor, ceiling, truncate, round	所有这些函数把一个数字的两个参数，并返回商;地面返回的最大整数不大于比，天花板选择较小的整数，它比比率越大，截断选择相同符号的整数的比值与最大的绝对值是小于的比值的绝对值，与圆公司选用一个整数，它是最接近比值
ffloor, fceiling, ftruncate, fround	确实与上述相同，但返回的商作为一个浮点数
mod, rem	返回除法运算的余数
float	将实数转换为浮点数
rational, rationalize	将实数转换为有理数
numerator, denominator	返回有理数的各个部分
realpart, imagpart	返回一个复数的实部和虚部

示例

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

(write
))(terpri)(write
(floor
))(terpri)(write
))(terpri)(write
(floor
))(terpri)(write
(ceiling
))(terpri)(write
(truncate
))(terpri)(write
(round
))(terpri)(write
(ffloor
))(terpri)(write
(fceiling
))(terpri)(write
(ftruncate
))(terpri)(write
(fround
))(terpri)(write
(mod
))(terpri)(setq
c (complex
))(write
c)(terpri)(write
(complex
))(terpri)(write
(realpart
c))(terpri)(write
(imagpart
c))

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

14 LISP - 字符

在LISP中，字符被表示为字符类型的数据对象。可以记#前字符本身之前的字符的对象。例如，#一个表示字符a。空格和其它特殊字符可以通过＃前面的字符的名称前表示。例如，#空格代表空格字符。下面的例子演示了这一点：

示例

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

(write
'a)

(terpri)

(write
#a)

(terpri)

(write-char
#a)

(terpri)

(write-char 'a)

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

A

#a
a

***-
WRITE-CHAR:
argument A isnot
a character

14.1 特殊字符

Common
Lisp允许使用以下特殊字符在代码。他们被称为半标准字符。

• #Backspace

• #Tab

• #Linefeed

• #Page

• #Return

• #Rubout

14.2 字符比较函数

数字比较函数和运算符，如，<
和
>上字符不工作。
Common
Lisp提供了另外两组的功能，在代码中比较字符。一组是区分大小写的，而另一个不区分大小写。

下表提供的功能：

Case Sensitive Functions	Case-insensitive Functions	描述
char=	char-equal	检查如果操作数的值都相等与否，如果是的话那么条件为真。
char/=	char-not-equal	检查如果操作数的值都不同，或没有，如果值不相等，则条件为真。
char<	char-lessp	检查如果操作数的值单调递减。
char>	char-greaterp	检查如果操作数的值单调递增。
char<=	char-not-greaterp	如有左操作数的值大于或等于下一个右操作数的值，如果是则条件为真检查。
char>=	char-not-lessp	如有左操作数的值小于或等于其右操作数的值，如果是，则条件为真检查。

示例

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

;case-sensitive
comparison

(write
(char=#a #))(terpri)(write
(char=#a #a))(terpri)(write
(char=#a #A))(terpri);case-insensitive
comparision

(write
(char-equal
#a #A))(terpri)(write
(char-equal
#a #))(terpri)(write
(char-lessp
#a # #c))(terpri)(write
(char-greaterp
#a # #c))

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

NIL

T

NIL

T

NIL

T

NIL

15 LISP - 数组

LISP允许使用make-array函数来定义一个或多个维数组。一个数组可以任意LISP对象存储为它的元素。所有数组组成的连续的存储单元。最低的地址对应于第一个元素和最高地址的最后一个元素。

数组的维数被称为它的秩。

在LISP语言中，数组元素是由一个非负整数索引的顺序指定。该序列的长度必须等于数组的秩。索引从0开始。

例如，要创建一个数组，10
- 单元格，命名为my-array，我们可以这样写：

(setf
my-array
(make-array
'(10)))

aref
函数允许访问该单元格的内容。它有两个参数，数组名和索引值。

例如，要访问的第十单元格的内容，可以这样编写：

(aref
my-array
)

示例1

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

(write
(setf
my-array
(make-array
'(10))))

(terpri)

(setf
(aref my-array 0) 25)

(setf
(aref my-array 1) 23)

(setf
(aref my-array 2) 45)

(setf
(aref my-array 3) 10)

(setf
(aref my-array 4) 20)

(setf
(aref my-array 5) 17)

(setf
(aref my-array 6) 25)

(setf
(aref my-array 7) 19)

(setf
(aref my-array 8) 67)

(setf
(aref my-array 9) 30)

(write my-array)

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

#(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)#(25 23 45 10 20 17 25 19 67 30)

示例
2

让我们创建一个3×3数组。

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

(setf
x (make-array
'(3 3)

:initial-contents
'))))(write
x)

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

#2A((0 1 2) (3 4 5) (6 7 8))

示例3

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

(setq
a (make-array
'(4 3)))

(dotimes
(i 4)

(dotimes (j 3)

(setf (aref a i j) (list i 'x
j '= (* i j)))))

(dotimes
(i 4)

(dotimes (j 3)

(print (aref a i j))))

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

X )

X )

X )

X )

X )

X )

X )

X )

X )

X )

X )

X )

15.1 make-array函数完整的语法

make-array函数需要许多其他的参数。让我们来看看这个函数的完整语法：

make-array
dimensions :element-type
:initial-element
:initial-contents
:adjustable
:fill-yiibaier
:displaced-to
:displaced-index-offset

除了维度参数，所有其他参数都是关键字。下表提供的参数简要说明。

参数	描述
dimensions	它给该数组的大小。它是一个数字为一维数组，而对于多维数组列表。
:element-type	它是类型说明符，默认值是T，即任何类型
:initial-element	初始元素值。它将使一个数组的所有初始化为一个特定值的元素。
:initial-content	初始内容作为对象。
:adjustable	它有助于创造一个可调整大小(或可调)向量，其底层的内存可以调整大小。该参数是一个布尔值，表示数组是否可调与否，默认值是nil。
:fill-yiibaier	它跟踪实际存储在一个可调整大小的矢量元素的数目
:displaced-to	它有助于创造一个移位的数组或共享数组共享其内容与指定的数组。这两个数组应该有相同的元素类型。位移到选项可能无法使用:displaced-to或:initial-contents选项。此参数默认为nil。
:displaced-index-offset	它给出了索引偏移创建的共享数组。

示例4

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

(setq
myarray (make-array
'(3 2 3)

:initial-contents

'(((a
b c))

((d
e f))

((g
h i))

)))

(setq
array2 (make-array
:displaced-to
myarray

:displaced-index-offset
))

(write
myarray)(terpri)(write
array2)

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

#3A(((A B C) (1 2 3)) ((D E F) (4 5 6)) ((G H
I) (7 8 9)))#(C 1 2 3)

若对数组是二维的：

(setq
myarray (make-array
'(3 2 3)

:initial-contents

'(((a
b c))

((d
e f))

((g
h i))

)))

(setq
array2 (make-array
'(3 2) :displaced-to myarray

:displaced-index-offset 2))

(write
myarray)

(terpri)

(write
array2)

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

#3A(((A B C) (1 2 3)) ((D E F) (4 5 6)) ((G H
I) (7 8 9)))#2A((C 1) (2 3) (D E))

让我们改变流离指数偏移量5：

(setq
myarray (make-array
'(3 2 3)

:initial-contents

'(((a
b c))

((d
e f))

((g
h i))

)))

(setq
array2 (make-array
'(3 2) :displaced-to myarray

:displaced-index-offset 5))

(write
myarray)

(terpri)

(write
array2)

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

#3A(((A B C) (1 2 3)) ((D E F) (4 5 6)) ((G H
I) (7 8 9)))#2A((3 D) (E F) (4 5))

示例5

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

;a
one dimensional array
elements,

;initail
value (write
(make-array
:initial-element
))(terpri);two
dimensional array,with
initial element a

(write
(make-array
'(2 3) :initial-element 'a))(terpri);an
array of capacity ,
but fill yiibaier (write(length
(make-array
:fill-yiibaier
)))(terpri);however
its length (write
(array-dimensions
(make-array
:fill-yiibaier
)))(terpri);
a bit array with
all initial elements set
to (write(make-array
:element-type
'bit :initial-element 1))

(terpri)

;
a character array with all initial elements set to a

;
is a string actually

(write(make-array
10 :element-type 'character
:initial-element
#a)) (terpri);
a two dimensional array with
initial values a

(setq
myarray (make-array
'(2 2) :initial-element 'a
:adjustable
t))(write
myarray)(terpri);readjusting
the array

(adjust-array
myarray '(1 3) :initial-element
'b)

(write
myarray)

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

)#*1111111111"aaaaaaaaaa"#2A((A A) (A A))#2A((A A B))

16 LISP - 符号

在LISP语言中，符号是表示数据对象和有趣的是它也是一个数据对象的名称。是什么使得符号特殊之处在于他们有分别叫property
list,或
plist.

16.1 属性列表

LISP可以让属性，以符号分配。例如，我们有一个'人'的对象。希望这个'人'的对象有像姓名，性别，身高，体重，住址，职业等属性是一些属性名称。一个属性列表被实现为具有元素为偶数(可能为零)的列表。每对列表中的元素构成一个条目;第一个项目是指标，而第二个是该值。当创建一个符号，它的属性列表最初是空的。属性是使用于asetf形式得到建立。

例如，下面的语句使我们能够分配属性标题，作者和出版商，以及相应的值，命名(符号)'书'的对象。

示例
1

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

((write
(setf (get 'books'title) '(Gone with the Wind)))

(terpri)

(write
(setf (get 'books 'author) '(Margaret Michel)))

(terpri)

(write
(setf (get 'books 'publisher) '(Warner Books)))

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

(GONE WITH
THE WIND)

(MARGARET
MICHEL)

(WARNER
BOOKS)

各种属性列表功能允许你指定的属性以及检索，替换或删除一个符号的属性。

get
函数返回符号的属性列表对于一个给定的指标。它的语法如下：

get
symbol indicator &optional default

get
函数查找指定的指标给定的符号的属性列表，如果找到则返回相应的值;否则默认返回(或nil，如果没有指定默认值)。

示例
2

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

(setf (get
'books 'title) '(Gone with the Wind))

(setf (get
'books 'author) '(Margaret Micheal))

(setf (get
'books 'publisher) '(Warner Books))

(write (get
'books 'title))

(terpri)

(write (get
'books 'author))

(terpri)

(write (get
'books 'publisher))

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

(GONE WITH
THE WIND)

(MARGARET
MICHEAL)

(WARNER
BOOKS)

symbol-plist函数可以看到一个符号的所有属性。

示例
3

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

(setf (get
'annie 'age) 43)

(setf (get
'annie 'job) 'accountant)

(setf (get
'annie 'sex) 'female)

(setf (get
'annie 'children) 3)

(terpri)

(write
(symbol-plist 'annie))

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

(CHILDREN 3
SEX FEMALE JOB ACCOUNTANT AGE 43)

remprop函数从符号中删除指定的属性。

示例
4

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

(setf (get
'annie 'age) 43)

(setf (get
'annie 'job) 'accountant)

(setf (get
'annie 'sex) 'female)

(setf (get
'annie 'children) 3)

(terpri)

(write
(symbol-plist 'annie))

(remprop
'annie 'age)

(terpri)

(write
(symbol-plist 'annie))

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

(CHILDREN 3
SEX FEMALE JOB ACCOUNTANT AGE 43)

(CHILDREN 3
SEX FEMALE JOB ACCOUNTANT)

17 LISP - 向量

向量是一维数组，数组因此子类型。向量和列表统称序列。因此，我们迄今为止所讨论的所有序列的通用函数和数组函数，工作在向量上。

17.1 创建向量

向量函数使可以使用特定的值固定大小的向量。这需要任意数量的参数，并返回包含这些参数的向量。

示例1

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

(setf
v1 (vector
))(setf
v2 #(a b c d e))(setf
v3 (vector
'p 'q
'r 's
't))

(write
v1)

(terpri)

(write
v2)

(terpri)

(write v3)

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

#(1 2 3 4 5)#(A B C D E)#(P Q R S T)

请注意，LISP使用＃(...)语法为向量的文字符号。可以使用此＃(...)语法来创建并包含在代码中的文字向量。然而，这些是文字向量，所以修改它们没有在LISP语言中定义。因此，对于编程，应始终使用向量函数，或者make-array函数来创建打算修改的向量。

make-array函数是比较通用的方式来创建一个矢量。可以访问使用aref函数的矢量元素。

示例
2

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

(setq
a (make-array
:initial-element
))(setq
b (make-array
:initial-element
))(dotimes
(i
)(setf
(aref
a i)
i))(write
a)(terpri)(write
b)(terpri)

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

#(0 1 2 3 4)#(2 2 2 2 2)

17.2 Fill 指针

make-array函数允许创建一个可调整大小的矢量。

函数fill-yiibaier参数跟踪实际存储在向量中的元素的数量。它的下一个位置，当添加元素的向量来填充的索引。

vector-push函数允许将元素添加到一个可调整大小的矢量的结束。它增加了填充指针加1。

vector-pop函数返回最近推条目，由1递减填充指针。

示例

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

(setq
a (make-array
:fill-yiibaier
))(write
a)(vector-push
'a a)

(vector-push
'b
a)(vector-push
'c a)

(terpri)

(write
a)

(terpri)

(vector-push
'd
a)(vector-push
'e a)

;this
will not be entered as the vector limit is 5

(vector-push 'f
a)(write
a)(terpri)(vector-pop
a)(vector-pop
a)(vector-pop
a)(write
a)

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

#()#(A B C)#(A B C D E)#(A B)

向量是序列，所有序列函数是适用于向量。请参考序列章节，对向量函数。

18 LISP - 集合

Common
Lisp不提供的一组数据类型。然而，它提供的函数数量，它允许一组操作，以可以在列表上执行。可以添加，删除和搜索列表中的项目，根据不同的标准。还可以执行像不同的集合运算：并，交和集合差。

18.2 实现LISP集合

集合像列表一样，一般实现的利弊单元。由于这个原因，集合操作越来越少，高效的获取大的集合。要明白这一点，一旦我们深入研究这个问题更深一点。

adjoin函数可建立一个集合。这需要一个条目和一个列表表示一组，并返回表示包含该项目，并在原设定的所有项目的集合列表。adjoin函数首先查找的条目给定列表中，一旦找到，将返回原来的名单;否则，创建一个新的cons单元，其car作为该目条，cdr指向原来的列表并返回这个新列表。该毗函数也需要:key
和
:test关键字参数。这些参数用于检查该条目是否存在于原始列表。因为，adjoin函数不会修改原来的列表，让列表本身的变化，必须指定由adjoin到原始列表返回的值或者可以使用宏pushnew将条目添加到集合。

示例

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

;
creating myset as
an empty list

(defparameter
*myset*())(adjoin
*myset*)(adjoin
*myset*);
adjoin didn't change the original
set

;so
it remains same

(write
*myset*)

(terpri)

(setf
*myset* (adjoin 1 *myset*))

(setf
*myset* (adjoin 2 *myset*))

;now
the original set is changed

(write
*myset*)

(terpri)

;adding
an existing value

(pushnew
2 *myset*)

;no
duplicate allowed

(write
*myset*)

(terpri)

;pushing
a new value

(pushnew
3 *myset*)

(write
*myset*)

(terpri)

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

NIL

)

18.3 检查成员

函数的成员组允许检查一个元素是否是一个集合成员。

以下是这些函数的语法：

member
item list &key
:test
:test-not:key

member-if
predicate list &key
:key

member-if-not
predicate list &key
:key

这些函数搜索给定列表中一个给定的项，满足了测试。它没有这样的项被找到，则函数返回nil。否则，将返回列表中的元素作为第一个元素的尾部。搜索是只在顶层进行。这些函数可作为谓词。

示例

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

(write
(member
'zara '(ayan
abdul zara riyan nuha)))(terpri)(write
(member-if#'evenp '(3 7 2 5/3 'a)))(terpri)(write
(member-if-not#'numberp '(3 7 2 5/3 'a 'b 'c)))

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

(ZARA
RIYAN NUHA'A)

('A
'B 'C)

18.4 集合联合

联合组功能能够在作为参数提供给这些功能测试的基础上，两个列表进行集联合。

以下是这些函数的语法：

union
list1 list2 &key
:test
:test-not:key

nunion
list1 list2 &key
:test
:test-not:key

union函数有两个列表，并返回一个包含所有目前无论是在列表中的元素的新列表。如果有重复，则该成员只有一个副本被保存在返回的列表。union函数执行相同的操作，但可能会破坏参数列表。

示例

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

(setq
set1 (union'(a b c) '(c
d e)))(setq
set2 (union'(#(a b) #(5 6 7) #(f h))

)#(a b) #(g h)) :test-not
#'mismatch))

(setq
set3 (union'(#(a b) #(5 6 7) #(f h))

)#(a b) #(g h))))(write
set1)(terpri)(write
set2)(terpri)(write
set3)

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

(A
B C D E)(#(F
H)#(5 6 7) #(A B) #(G H))(#(A
B)#(5 6 7) #(F H) #(5 6 7) #(A B)
#(G H))

请注意:

对于三个向量列表
:test-not
#'不匹配的参数：如预期的union函数不会工作。这是因为，该名单是由cons单元元素，虽然值相同的外观明显，单元元素cdr部分不匹配，所以他们
并不完全一样，以LISP解释器/编译器。这是原因;实现大集全不建议使用的列表。它工作正常的小集合上。

18.5 交集

函数的交点组允许作为参数提供给这些函数测试的基础上，两个列表进行交点。以下是这些函数的语法：

intersection
list1 list2 &key
:test
:test-not:key

nintersection
list1 list2 &key
:test
:test-not:key

这些函数需要两个列表，并返回一个包含所有目前在这两个参数列表中的元素的新列表。如果任一列表中的重复项，冗余项可能会或可能不会出现在结果中。

示例

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

(setq
set1 (intersection
'(a b c) '(c
d e)))(setq
set2 (intersection
'(#(a b) #(5 6 7) #(f h))

)#(a b) #(g h)) :test-not
#'mismatch))

(setq
set3 (intersection
'(#(a b) #(5 6 7) #(f h))

)#(a b) #(g h))))(write
set1)(terpri)(write
set2)(terpri)(write
set3)

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

(C)(#(A
B)#(5 6 7))
NIL

intersection
函数是相交的破坏性版本，也就是说，它可能会破坏原始列表。

18.6 差集

set-difference组差集，可以在作为参数提供给这些功能测试的基础上，两个列表进行差集。以下是这些函数的语法：

set-difference
list1 list2 &key
:test
:test-not:key

nset-difference
list1 list2 &key
:test
:test-not:key

set-difference函数返回，不会出现在第二个列表的第一个列表的元素的列表。

示例

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

(setq
set1 (set-difference
'(a b c) '(c
d e)))(setq
set2 (set-difference
'(#(a b) #(5 6 7) #(f h))

)#(a b) #(g h)) :test-not
#'mismatch))(setq
set3 (set-difference
'(#(a b) #(5 6 7) #(f h))

)#(a b) #(g h))))(write
set1)(terpri)(write
set2)(terpri)(write
set3)

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

(A
B)(#(F
H))(#(A
B)#(5 6 7) #(F H))

19 LISP - 树

可以从cons单元构建树的数据结构，如清单列表。为了实现树形结构，则必须设计功能，将遍历cons
单元，在特定的顺序，例如，前序，顺序和后序的二进制树。

19.1 树列表的列表

让我们考虑由cons单元的树状结构，形成列出的清单如下：

((1 2) (3
4) (5 6)).

图解，它可以表示为：

19.2 LISP树的功能

虽然多数时候仍需要根据其它特殊需求编写自己的树的功能，LISP提供了一些树的功能，您可以使用。

除了所有列表函数，以下是工作在树结构函数：

函数	描述
copy-tree x &optional vecp	它返回cons单元×树的副本。它递归地拷贝两款车和cdr方向。如果x不是一个cons单元，该函数只返回x不变。如果可选vecp参数为true，这个函数将向量（递归），以及cons单元。
tree-equal x y &key :test :test-not :key	它比较两棵树的cons单元。如果x和y是两个cons单元，他们的汽车和cdr是递归比较。如果x和y都不是一个cons单元，它们是由eql比较，或根据指定的测试。:key函数，如果指定，应用到这两个目录树中的元素。
subst new old tree &key :test :test-not :key	它可以代替出现给老项与新项，在树，这是cons单元的一棵树。
nsubst new old tree &key :test :test-not :key	它的工作原理与subst相同，但它破坏了原来的树。
sublis alist tree &key :test :test-not :key	它的工作原理就像subst，只不过它采用的新旧对关联表alist。树（应用后:key函数，如果有的话）中的每个元素，与alist的车相比;如果它匹配，它被替换为相应的cdr。
nsublis alist tree &key :test :test-not :key	它的工作原理与sublis相同，而是一个破坏性的版本。

示例1

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

(setq
lst (list
)'(5 6)))

(setq
mylst (copy-list lst))

(setq
tr (copy-tree lst))

(write
lst)

(terpri)

(write
mylst)

(terpri)

(write tr)

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

))

示例2

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

(setq
tr '((1 2 (3 4 5) ((7 8) (7 8
9)))))

(write
tr)

(setq
trs (subst 7 1 tr))

(terpri)

(write
trs)

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

))))

19.3 建立自己的树

让我们尝试建立自己的树，使用LISP列表功能。

（1）首先，让我们创建一个包含一些数据的新节点：

(defun
make-tree
(item)"it creates a new node
with item."(cons
(cons
item nil)nil))

（2）接下来让我们添加一个子节点插入到树：它会采取两种树节点，并添加第二棵树作为第一个的子树。

(defun
add-child
(tree
child)(setf
(car
tree)(append
(car
tree)
child))
tree)

（3）接下来让我们添加一个子节点插入到树：这将需要一个树节点，并返回该节点第一个子节点，或nil，如果这个节点没有任何子节点。

(defun
first-child
(tree)(if(null
tree)nil(cdr
(car
tree))))

（4）这个函数会返回一个给定节点的下一个同级节点：它需要一个树节点作为参数，并返回一个指向下一个同级节点，或者为nil，如果该节点没有任何。

(defun
next-sibling
(tree)(cdr
tree))

（5）最后，我们需要一个函数来返回一个节点的信息：

(defun
data (tree)(car
(car
tree)))

示例

本示例使用上述功能：

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

(defun
make-tree
(item)"it creates a new node
with item."(cons
(cons
item nil)nil))(defun
first-child
(tree)(if(null
tree)nil(cdr
(car
tree))))(defun
next-sibling
(tree)(cdr
tree))(defun
data (tree)(car
(car
tree)))(defun
add-child
(tree
child)(setf
(car
tree)(append
(car
tree)
child))
tree)

(setq
tr '((1 2 (3 4 5) ((7 8) (7 8
9)))))

(setq
mytree (make-tree 10))

(write
(data mytree))

(terpri)

(write
(first-child tr))

(terpri)

(setq
newtree (add-child tr mytree))

(terpri)

(write
newtree)

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

)))

)))

20 LISP - 哈希表

哈希表的数据结构表示是基于键哈希代码进行组织键
-
值对的集合。它使用键来访问集合中的元素。哈希表是用于需要使用一键访问元素，可以找出一个有用的键值。在哈希表中每个项目都有一个键/值对。键是用于访问该集合中的项。

20.1
LISP中创建哈希表

在Common
Lisp中表是一种通用的集合。可以随心所欲的使用对象作为一个键或索引。当在一个哈希表中存储的值，设置键
-
值对，并将其存储在该键。以后可以从哈希表中使用相同的key检索值。每个键映射到一个单一的值，虽然可以在一键保存新值。哈希表，在LISP，可分为三种类型，基于这样的键所不能compared
- eq, eql 或
equal。如果哈希表进行哈希处理的LISP对象然后将钥匙与eq或eql比较。如果在树结构中的哈希表散列，那么它会使用相等比较。

make-hash-table函数用于创建一个哈希表。此函数语法的是：

make-hash-table
&key
:test
:size
:rehash-size
:rehash-threshold

那么:

• key参数提供了键。

• :test参数确定键如何比较-
  它应该有一个三个值
  #'eq,
  #'eql 或
  #'equal或三个符号式之一，eq,
  eql, 或
  equal。如果未指定，则使用eql。

• :size参数设置哈希表的初始大小。这应该是一个大于零的整数。

• :rehash-size
  参数指定用多少提高哈希表的大小时已满。这可以是一个大于零的整数，这是添加的项的数量，或者它可以是一个浮点数大于1，这是新的尺寸，以旧的大小的比率。该参数的默认值是实现相关。

• :rehash-threshold参数指定的哈希表如何能充分得到之前，它必须成长。这可以是一个大于零的整数，并且小于
  :rehash-size(在这种情况下，每当该表是生长其将被缩小)，或者它可以是零和1之间的浮点数此默认值。参数是实现相关的。

• 也可以调用
  make-hash-table函数的无参数形式。

20.2 正在从项和新增项到哈希表

gethash函数通过搜索其键检索从哈希表中的项。如果没有找到键，那么它返回nil。

它的语法如下：

gethash key
hash-table
&optional
default

那么:

• key:是相关联的键

• hash-table:是要被搜索的哈希表

• default:要返回的值，如果没有找到该入口，它是nil，如果不是指定的值。

• gethash函数实际上返回两个值，第二个是一个谓词值，如果发现一个项则是true；如果被发现没有项目返回false。

• 对于将项添加到哈希表中，可以使用setf函数及gethash函数。

示例

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

(setq
empList (make-hash-table))

(setf
(gethash
'001 empList) '(CharlieBrown))(setf
(gethash
'002 empList) '(FreddieSeal))

(write
(gethash
'001 empList))

(terpri)

empList))

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

(CHARLIE
BROWN)(FREDDIE
SEAL)

20.3 删除条目

remhash函数删除在哈希表中的特定键的任何项。如果是一个谓词，那么它为true，如果没有有一个项则为false。

其函数语法：

remhash key
hash-table

示例

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

(setq
empList (make-hash-table))

(setf
(gethash
'001 empList) '(CharlieBrown))(setf
(gethash
'002 empList) '(FreddieSeal))

(setf
(gethash
'003 empList) '(MarkMongoose))

(write
(gethash
'001 empList))

(terpri)

(write
(gethash '
empList))

(terpri)(write
(gethash
'003 empList))

(remhash
'
empList)(terpri)(write
(gethash
'003 empList))

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

(CHARLIE
BROWN)(FREDDIE
SEAL)(MARK
MONGOOSE)
NIL

20.4 maphash函数

maphash函数允许在每个键
-
值对应用一个指定的函数在一个哈希表。

它有两个参数
-
函数和哈希表，并调用该函数一次为每个键/值对的哈希表中。

示例

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

(setq
empList (make-hash-table))

(setf
(gethash
'001 empList) '(CharlieBrown))(setf
(gethash
'002 empList) '(FreddieSeal))

(setf
(gethash
'003 empList) '(MarkMongoose))

(maphash
#'(lambda (k v) (format t "~a
=> ~a~%" k v)) empList)

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

=>(MARK
MONGOOSE=>(FREDDIE
SEAL=>(CHARLIE
BROWN)

21 LISP - 输入和输出

Common
Lisp提供了大量的输入输出功能。我们已经使用的格式功能，打印输出功能。在本节中，我们将探讨一些在LISP提供了最常用的输入输出功能。

21.1 输入函数

下表提供了LISP的最常用的输入功能：

SL No.	函数和说明
	read &optional input-stream eof-error-p eof-value recursive-p 它读取一个Lisp对象从输入流的打印形式，建立相应的Lisp对象，并返回该对象。
	read-preserving-whitespace &optional in-stream eof-error-p eof-value recursive-p 这是用在一些特殊情况下，最好是确定扩展令牌正好是字符结束。
	read-line &optional input-stream eof-error-p eof-value recursive-p 它读取一个文本行由换行符终止。
	read-char &optional input-stream eof-error-p eof-value recursive-p 这需要一个字符从输入流并将其作为一个字符的对象。
	unread-char character &optional input-stream 它把最近从输入流中读取的字符，到输入数据流的前部。
	peek-char &optional peek-type input-stream eof-error-p eof-value recursive-p 它返回的下一个字符被从输入流中读取，而无需实际从输入流中除去它。
	listen &optional input-stream 谓词监听为true如果有立即从输入流中的字符，如果不是则为false。
	read-char-no-hang &optional input-stream eof-error-p eof-value recursive-p 它类似于read-char字符，但是如果它没有得到一个字符，它不会等待一个字符，但立即返回为nil。
	clear-input &optional input-stream 它清除与输入流关联的所有缓冲的输入。
	read-from-string string &optional eof-error-p eof-value &key :start :end :preserve-whitespace 它采用字符串的字符，并相继建立一个LISP的对象，并返回该对象。它也返回第一个字符的索引无法读取字符串或字符串（或长度+1）的长度，视具体情况而定。
	parse-integer string &key :start :end :radix :junk-allowed 它会检查字符串的子串被分隔:start 和:end（默认为字符串的开头和结尾）。它会跳过空白字符，然后尝试解析一个整数。
	read-byte binary-input-stream &optional eof-error-p eof-value 它读取1字节的二进制输入流并将其返回一个整数的形式。

21.2 读取键盘的输入

read
函数用于从键盘输入。也可以不带任何参数。

例如，考虑代码片段：

(write
(+15.0(read)))

假设用户输入10.2
来自stdin
输入，它返回，

25.2

read
函数从输入流中读取字符，并通过解析为Lisp对象的表示解释它们。

示例

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

;
the functionAreaOfCircle;
calculates area of a circle

;when
the radius is
input from
keyboard

(defun
AreaOfCircle()(terpri)(princ
"Enter Radius: ")(setq
radius (read))(setq
area (*3.1416
radius radius))(princ
"Area: ")(write
area))(AreaOfCircle)

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

(STDIN
Input)Area:78.53999

示例

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

(with-input-from-string(stream
"Welcome to Tutorials
Yiibai!")(print(read-char
stream))(print(read-char
stream))(print(read-char
stream))(print(read-char
stream))(print(read-char
stream))(print(read-char
stream))(print(read-char
stream))(print(read-char
stream))(print(read-char
stream))(print(read-char
stream))(print(peek-charnil
stream nil'the-end))

(values))

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

#W #e #l #c #o #m #e #Space # #o #Space

21.3 输出功能

在LISP所有的输出函数都有一个称为输出流可选参数，其输出传送。如果没有提及或nil，输出流默认为变量*标准输出*的值。

下表提供了LISP的最常用的输出函数：

SL No.	函数和说明
	write object &key :stream :escape :radix :base :circle :pretty :level :length :case :gensym :array write object &key :stream :escape :radix :base :circle :pretty :level :length :case :gensym :array :readably :right-margin :miser-width :lines :pprint-dispatch 既写对象通过指定的输出流:stream，默认为标准输出*值*。其他值默认为打印设置相应的全局变量。
	prin1object &optional output-stream print object &optional output-stream pprint object &optional output-stream princ object &optional output-stream 所有这些函数对象的打印形式输出到输出流。但是，下面的不同之处有： prin1 返回对象作为其值。 print 打印与前一个换行符的目标和后跟一个空格。它返回的对象。 pprint 就像印刷不同之处在于省略了结尾间隔。 princ 就像prin1除了输出没有转义字符。
	write-to-string object &key :escape :radix :base :circle :pretty :level :length :case :gensym :array write-to-stringobject &key :escape :radix :base :circle :pretty :level :length :case :gensym :array :readably :right-margin :miser-width :lines :pprint-dispatch prin1-to-string object princ-to-string object 该对象被有效地打印和输出的字符被转成一个字符串，并将该字符串返回。
	write-char character &optional output-stream 它输出的字符输出流，并返回字符。
	write-string string &optional output-stream &key :start :end 它写入字符串的指定子字符串的字符输出流。
	write-line string &optional output-stream &key :start :end 它的工作原理与write-string的方式相同，但是之后输出一个换行符。
	terpri &optional output-stream 它输出一个换行符到output-stream。
	fresh-line &optional output-stream 它只输出一个换行，如果流不是已经在一行的开始。
	finish-output &optional output-stream force-output &optional output-stream clear-output &optional output-stream 函数finish-output尝试确保发送到输出流的所有输出已达到其目标，然后才返回nil。 函数force-output发起的任何内部缓冲区清空，但返回nil，而无需等待完成或确认。 函数clear-output 尝试中止，以便使尽可能少的输出继续到目标中的任何出色的输出操作。
	write-byte integer binary-output-stream 它写入一个字节，整数的值。

示例

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

;this
program inputs a numbers and
doubles it

(defun
DoubleNumber()(terpri)(princ
"Enter Number : ")(setq
n1 (read))(setq
doubled (*2.0
n1))(princ
"The Number: ")(write
n1)(terpri)(princ
"The Number Doubled: ")(write
doubled))(DoubleNumber)

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

EnterNumber:3456.78(STDIN
Input)TheNumber:3456.78TheNumberDoubled:6913.56

21.4 格式化输出

format函数是用于生产很好的格式化文本。它的语法如下：

format
destination control-string&rest
arguments

那么，

• destination
  是一个标准输出

• control-string
  持有的字符要被输出和打印指令。

• format
  directive 由符号（〜）的，用逗号，可选的冒号（:)和符号（@）修饰符和一个字符指明了哪些指令是分开的可选前缀参数。

• 前缀参数一般都是整数，记载为可选符号十进制数。

下表提供了常用的指令的简要说明：

指令	描述
~A	后跟ASCII码参数
~S	后跟S-表达式
~D	为十进制参数
~B	用于二进制参数
~O	用于八进制参数
~X	用于十六进制参数
~C	用于字符参数
~F	用于固定格式的浮点参数。
~E	指数浮点参数
~$	美元和浮点参数。
~%	被打印新的一行
~*	被忽略的下一个参数
~?	间接。下一个参数必须是一个字符串，一个接一个列表。

示例

让我们重写程序计算圆的面积：

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

(defun
AreaOfCircle()(terpri)(princ
"Enter Radius: ")(setq
radius (read))(setq
area (*3.1416
radius radius))(format
t "Radius: = ~F~% Area = ~F"
radius area))(AreaOfCircle)

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

EnterRadius:10.234(STDIN
Input)Radius:=10.234Area=329.03473

22 LISP - 文件I/O

我们已经了解如何使用标准的输入和输出是由Common
Lisp处理的参数。所有这些函数读取和写入文本文件和二进制文件。唯一不同的是在这种情况下，我们使用流不是标准输入或输出，但对于写入或读取文件的特定目的的流创建的。在本章中，我们将看到的LISP如何创建，打开，关闭文本或二进制文件的数据存储。文件代表一个字节序列，如果它是一个文本文件或二进制文件。本章将引导完成重要的功能/宏的文件管理。

22.1 打开文件

可以使用open
函数来创建一个新文件或打开一个现有的文件。这是最基本的功能为打开一个文件。然而，with-open-file通常更方便，更常用，因为我们将在本节后面看。当一个文件被打开，一个流对象被创建来代表它在LISP环境。流上的所有操作基本上等同于操作上的文件。

open
函数语法是：

open
filename &key :direction :element-type :if-exists
:if-does-not-exist :external-format

那么,

• filename
  参数是要打开或创建的文件的名称。

• keyword
  参数指定的数据流和错误处理方式的类型。

• :direction
  keyword 指定的流是否应处理的输入，输出，或两者兼而有之，它采用下列值：

• :input -
  用于输入流（默认值）

• :output -
  输出流

• :io - 双向流

• :probe -
  只是检查一个文件是否存在;该流被打开，然后关闭。

• :element-type
  指定事务单元的流类型。

• :if-exists参数指定要采取的操作，如果
  :direction
  是
  :output
  or :io和指定的名称已存在的文件。如果方向是direction
  为
  :input
  或
  :probe，则忽略此参数。它采用下列值：

• :error -
  它发出错误信号。

• :new-version
  - 它将创建一个具有相同名称但大版本号的新文件。

• :rename -
  它重命名现有的文件。

• :rename-and-delete
  - 它重命名现有的文件，然后将其删除。

• :append -
  它追加到现有文件。

• :supersede
  - 它将取代现有的文件。

• nil -
  它不创建一个文件甚至流只是返回零表示失败。

• :if-does-not-exist
  参数指定，如果指定名称的文件已经不存在应采取的操作。它采用下列值：

• :error -
  它发出错误信号。

• :create -
  它创建具有指定名称的空文件，然后使用它。

• nil -
  它不创建一个文件或流，而是简单地返回nil表示失败。

• :external-format
  参数指定用于表示文件的字符的实施认可制度

例如，可以打开一个名为myfile.txt的存储在/
tmp文件夹的文件：

(open
"/tmp/myfile.txt")

22.2 写入和读取文件

with-open-file允许读取或写入到一个文件中，用与读/写事务相关联的流变量。一旦这项工作完成后，它会自动关闭文件。它使用极为方便。

它的语法如下：

with-open-file
(stream filename {options}*)

{declaration}*
{form}*

• filename 是要打开的文件的名称;它可以是一个字符串，一个路径，或一个流。

• options 就像keyword
  参数给函数打开的一样。

示例
1

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

(with-open-file
(stream "/tmp/myfile.txt" :direction :output)

(format
stream "Welcome to Tutorials Yiibai!")

(terpri
stream)

(format
stream "This is a tutorials database")

(terpri
stream)

(format
stream "Submit your Tutorials, White Papers and Articles into
our Tutorials Directory."))

请注意，在前面的章节，如，terpri和format讨论的所有输入输出函数正在编写到创建的文件。当执行代码，它不返回任何东西;然而，数据被写入到该文件中。
:direction
:output关键字可以做到这一点。不过，我们可以使用read-line函数从这个文件中读取。

实例
2

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

(let ((in
(open "/tmp/myfile.txt" :if-does-not-exist nil)))

(when in

(loop
for line = (read-line in nil)

while
line do (format t "~a~%" line))

(close
in)))

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

Welcome to
Tutorials Yiibai!

This is a
tutorials database

Submit your
Tutorials, White Papers and Articles into our Tutorials Directory.

22.3 关闭文件

close函数关闭一个流。

23 LISP – 结构

结构是用户定义的数据类型，它让用户可以合并不同种类的数据项。结构被用于表示记录。假设要跟踪图书馆中的书籍。可能希望跟踪了解每本书的以下属性：

• 标题
  -
  Title

• 作者
  -
  Author

• 科目
  -
  Subject

• 书籍编号
  -
  Book ID

23.1 定义一个结构

LISP的defstruct宏允许定义一个抽象的记录结构。defstruct语句定义了一个新的数据类型，项目结构中不止一个成员。讨论defstruct宏的格式，编写本书的结构的定义。可以定义本书的结构为：

(defstruct
book

title

author

subject

book-id

)

请注意:

上述声明创建一个本书结构有四个命名组件。因此，创建的每一个本书将是这个结构的对象。它定义了一个名为book-title，book-subject，book-book-id的书籍，这将需要一个参数，书的结构，并且将返回的字段标题，作者，主题和本书的book-book-id对象。这些函数被称为接入功能。符号书成为一个数据类型，它可以使用typep谓词检查。也将命名为book-p隐函数，这是一个谓词，将为true，如果它的参数是本、书，则返回false。另一个名为make-book
隐函数将被创建，这是一种构造方法，其中，当被调用时，将创建一个数据结构具有四个组件，适于与所述接入功能的使用。

• #S语法指的是一个结构，可以用它来读取或打印一本书的实例

• copy-book书本参数还定义了隐函数。这需要书的对象，并创建另一个书的对象，这是第一个副本。调用此函数复印机功能。

• 可以使用setf改变书籍的组成结构

例如

(setf
(book-book-id
book3)

示例

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

(defstruct
book

title

author

subject

book-id

)(
setq book1 (make-book
:title
"C Programming":author
"Nuha Ali"

:subject
"C-Programming Tutorial":book-id
"478"))(
setq book2 (make-book
:title
"Telecom Billing":author
"Zara Ali"

:subject
"C-Programming Tutorial":book-id
"501"))

(write
book1)(terpri)(write
book2)(setq
book3(
copy-book
book1))(setf
(book-book-id
book3)

(terpri)(write
book3)

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

#S(BOOK :TITLE "C Programming"
:AUTHOR "Nuha Ali" :SUBJECT "C-Programming Tutorial"
:BOOK-ID "478")#S(BOOK :TITLE "Telecom
Billing" :AUTHOR "Zara Ali" :SUBJECT "C-Programming
Tutorial" :BOOK-ID "501")#S(BOOK :TITLE "C
Programming" :AUTHOR "Nuha Ali" :SUBJECT
"C-Programming Tutorial" :BOOK-ID

24 LISP - 包

在编程语言的通用术语中，包是专为提供一种方法来保持一组名从另一个分开的。在一个包中声明的符号将不会与另一个声明的相同的符号相冲突。这样的包减少独立的代码模块之间的命名冲突。LISP读取器会维护所有已发现的符号表。当它找到一个新的字符序列，它在符号表中创建一个新的符号和存储。这个表被称为一个包。

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

有两个预定义的包在LISP：

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

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

24.1 LISP包函数

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

SL No	函数和说明
	make-packagepackage-name &key :nicknames :use 它创建并使用指定的包名返回一个新的包。
	in-package package-name &key :nicknames :use 使得当前的程序包。
	in-package name 这个宏的原因*package*设置为名为name的包，它必须是一个符号或字符串。
	find-package name 它搜索一个包。返回包的名称或昵称;如果没有这样的程序包是否存在，find-package返回nil
	rename-packagepackage new-name &optional new-nicknames 它重命名一个包。
	list-all-packages 该函数返回一个当前存在于Lisp语言系统中的所有包的列表。
	delete-package package 它会删除一个包

24.2 创建一个LISP包

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

defpackage
:package-name

(:use:common-lisp
...)(:export:symbol1
:symbol2
...))

那么，

• package-name是包的名称。

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

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

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

• make-packagepackage-name
  &key
  :nicknames
  :use

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

24.3 使用包

一旦创建了一个包，则可以使用代码在这个包中，使其成为当前包。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!ThisisTom's
Tutorials Yiibai

Hello! This is Dick's
TutorialsYiibaiHello!ThisisHarry's
Tutorials Yiibai

24.4 删除包

delete-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"))(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!ThisisTom's
Tutorials Yiibai

Hello!
This is Dick's
TutorialsYiibaiHello!ThisisHarry's
Tutorials Yiibai

*** - EVAL: variable TOM has no value

25 LISP - 错误处理

25.1 面向对象的错误处理-
LISP条件系统

在Common
Lisp的术语中，异常被称为条件。事实上，条件比在传统编程语言的异常更为普遍，因为一个条件表示任何事件，错误与否，这可能会影响各级函数调用堆栈。在LISP状态处理机制，处理的条件是用来警告信号(例如通过打印一个警告)，而在调用堆栈的上层代码可以继续工作，这样的情况下以这样一种方式。

条件处理系统中LISP有三个部分：

1. 信号的条件

2. 处理条件

3. 重启进程

25.2 处理一个条件

让我们处理由除零所产生的条件的例子，在这里解释这些概念。需要处理的条件如下步骤：

定义条件
-
“条件是一个对象，它的类表示条件的一般性质，其实例数据进行有关的特殊情况，导致被示意条件的细节信息”。

定义条件的宏用于定义一个条件，它具有以下语法：

(define-condition
condition-name
(error)((text
:initarg
:text
:reader
text)))

:initargs参数，新的条件对象与MAKE-CONDITION
宏，它初始化的基础上，新的条件下的插槽中创建的。

在我们的例子中，下面的代码定义的条件：

(define-condition
on-division-by-zero
(error)((message
:initarg
:message
:reader
message)))

25.3
编写处理程序

条件处理程序是用于处理信号的条件在其上的代码。它一般写在调用该函数出问题的上级功能之一。当条件信号发生时，该信号转导机制中搜索基于所述条件的类合适的处理器。

每个处理程序包括：

1. 类型说明符，它指示条件，它可以处理的类型

2. 一个函数，它接受一个参数条件

3. 当条件获得信号，该信号机制发现最近建立的处理程序与条件类型兼容，并调用它的函数。

宏处理程序的情况建立了一个条件处理程序。一个处理程序的
handler-case
形式：

(handler-case
expression

error-clause*)

那么，每个error从句的形式为：

condition-type
([var])
code)

25.4 重新启动阶段

这是真正从错误的代码中恢复程序，条件处理程序可以通过调用一个适当的重启处理的条件。重启代码一般是放置在中层或底层函数和条件处理程序被放置到应用程序的上层。

handler-bind宏允许提供一个重启功能，并允许继续在较低级的功能，无需解除函数的调用堆栈。换句话说，控制流将仍然处于较低水平的功能。

handler-bind的基本形式如下：

(handler-bind
(binding*)
form*)

其中每个绑定如以下列表：

1. 条件类型

2. 一个参数的处理函数

3. invoke-restart宏查找并调用具有指定名称作为参数最近绑定重启功能。

4. 可以有多个重新启动。

示例

在这个例子中，我们演示了上述概念通过写一个名为划分功能函数，则会创建错误条件，如果除数参数为零。我们有三个匿名的功能，提供三种方式来出它
– 通过返回一个值1，通过发送一个除数2和重新计算，或通过返回1。

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

(define-condition
on-division-by-zero
(error)((message
:initarg
:message
:reader
message)))

(defun
handle-infinity
()(restart-case(let((result
))(setf
result ))(format
t "Value: ~a~%"
result))(just-continue()nil)))

(defun
division-function(value1
value2)(restart-case(if(/=
value2 )(/
value1 value2)(error
'on-division-by-zero :message
"denominator is zero"))

(return-zero () 0)

(return-value (r) r)

(recalc-using (d) (division-function value1 d))))

(defun high-level-code ()

(handler-bind

((on-division-by-zero

#'(lambda(c)(format
t "error signaled: ~a~%"(message
c))(invoke-restart
'return-zero)))

(handle-infinity))))

(handler-bind

((on-division-by-zero

#'(lambda(c)(format
t "error signaled: ~a~%"(message
c))(invoke-restart
'return-value 1))))

(handle-infinity))

(handler-bind

((on-division-by-zero

#'(lambda(c)(format
t "error signaled: ~a~%"(message
c))(invoke-restart
'recalc-using 2))))

(handle-infinity))

(handler-bind

((on-division-by-zero

#'(lambda(c)(format
t "error signaled: ~a~%"(message
c))(invoke-restart
'just-continue))))

(handle-infinity))

(format t "Done."))

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

error
signaled:
denominator is
zero

error signaled:
denominator is
zero

error signaled:
denominator is
zero

Done.

除了“系统状态”，如上文所讨论，普通的LISP还提供了各种功能，其可被称为信令错误。当信号实现相关处理错误。

25.5 LISP的错误信号功能

下表提供了常用功能的信令警告，休息，非致命和致命的错误。

用户程序指定一个错误信息（字符串）。该函数处理这个消息，并且可能/可能不会显示给用户。错误信息应该通过应用的格式化功能进行构造，不应该在开头或结尾包含一个换行符，也无需指明错误，如LISP系统将根据其喜好的样式利用这些服务。

SL No.	函数和说明
	errorformat-string &rest args 它标志着一个致命的错误。这是不可能从这种错误的继续;这样的错误将永远不会返回到其调用者。
	cerrorcontinue-format-string error-format-string &rest args 它发出错误信号，并进入调试器。但是，它允许程序从调试器解决错误之后继续。
	warnformat-string &rest args 它打印一条错误消息，但一般不会进入调试
	break &optional format-string &rest args 它打印的消息，并直接进入调试器，而不允许拦截由编程错误处理设施的任何可能性

示例

在这个例子中，阶乘函数计算一个数阶乘;但是，如果参数为负，它抛出一个错误条件。

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

(defun
factorial (x)(cond
((or(not(typep
x 'integer)) (minusp x))

(error "~S is a negative number." x))

((zerop x) 1)

(t (* x (factorial (- x 1))))))

(write(factorial
5))

(terpri)

(write(factorial
-1))

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

is
a negative number.

26 LISP - 对象系统（CLOS）

Common
Lisp通过几十年的面向对象编程的推进。但是，面向对象被并入是在它最后一阶段。

26.1 类的定义

defclass宏允许创建用户定义的类。它建立了一个类作为数据类型。它的语法如下：

(DEFCLASS
class-name
(superclass-name*)(slot-description*)class-option*)

• 插槽是存储数据变量或字段。

• slot-description形式(插槽名称插槽选项*)，其中每个选项是一个关键字后跟一个名字，表达式和其他选项。最常用的槽选项是：

• :accessor
  函数名称

• :initform
  表达式

• :initarg
  符号

例如，让我们定义一个Box类，有三个槽的长度，广度和高度。

(defclass
Box()

(length

breadth

height))

26.2 提供访问和读/写控制到一个插槽

除非有插槽可以访问，读取或写入的值，类是好看不中用。

当定义一个类可以为每个插槽指定访问。例如，把我们的Box类：

(defclass
Box()((length
:accessor
length)(breadth
:accessor
breadth)(height
:accessor
height)))

也可以读取和写入一个插槽指定单独的访问器的名称。

(defclass
Box()((length
:reader
get-length
:writer
set-length)(breadth
:reader
get-breadth
:writer
set-breadth)(height
:reader
get-height
:writer
set-height)))

26.3 类创建实例

通用函数make-instance创建并返回一个类的新实例。

它的语法如下：

(make-instance
class{initarg
value}*)

示例

让我们创建一个Box类，有三个插槽，长度，宽度和高度。我们将使用三个插槽存取到这些字段设置的值。

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

(defclass
box ()((length
:accessor
box-length)(breadth
:accessor
box-breadth)(height
:accessor
box-height)))(setf
item (make-instance
'box))

(setf
(box-length item) 10)

(setf
(box-breadth item) 10)

(setf
(box-height item) 5)

(format
t "Length of the Box is ~d~%" (box-length item))

(format
t "Breadth of the Box is ~d~%" (box-breadth item))

(format t "Height of the Box is ~d~%"
(box-height item))

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

Length
of the Breadth
of the Height
of the

26.4 定义一个类的方法

defmethod宏允许在类中定义一个方法。下面的示例扩展Box类包含一个方法名为volume。

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

(defclass
box ()((length
:accessor
box-length)(breadth
:accessor
box-breadth)(height
:accessor
box-height)(volume
:reader
volume)))

;
method calculating volume

(defmethod
volume ((object
box))(*(box-length
object)(box-breadth
object)(box-height
object)))

;setting
the values

(setf
item (make-instance
'box))

(setf
(box-length item) 10)

(setf
(box-breadth item) 10)

(setf
(box-height item) 5)

;
displaying values

(format
t "Length of the Box is ~d~%" (box-length item))

(format
t "Breadth of the Box is ~d~%" (box-breadth item))

(format
t "Height of the Box is ~d~%" (box-height item))

(format
t "Volume of the Box is ~d~%" (volume item))

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

Length
of the Breadth
of the Height
of the Volume
of the

26.5 继承

LISP允许在另一个对象来定义一个对象。这就是所谓的继承。可以通过添加功能，新的或不同的创建派生类。派生类继承了父类的功能。

下面的例子说明了这一点：

示例

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

(defclass
box ()((length
:accessor
box-length)(breadth
:accessor
box-breadth)(height
:accessor
box-height)(volume
:reader
volume)));
method calculating volume

(defmethod
volume ((object
box))(*(box-length
object)(box-breadth
object)(box-height
object)))

;wooden-box
class
inherits the box class

(defclass
wooden-box
(box)((price
:accessor
box-price)))

;setting
the values

(setf
item (make-instance
'wooden-box))

(setf
(box-length item) 10)

(setf
(box-breadth item) 10)

(setf
(box-height item) 5)

(setf
(box-price item) 1000)

;
displaying values

(format
t "Length of the Wooden Box is ~d~%" (box-length item))

(format
t "Breadth of the Wooden Box is ~d~%" (box-breadth item))

(format
t "Height of the Wooden Box is ~d~%" (box-height item))

(format
t "Volume of the Wooden Box is ~d~%" (volume item))

(format
t "Price of the Wooden Box is ~d~%" (box-price item))

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

Length
of the Breadth
of the Height
of the Volume
of the Price
of the

附录：为什么我喜欢Lisp语言

Lisp是一种很老的语言。非常的老。Lisp有很多变种，但如今已没有一种语言叫Lisp的了。事实上，有多少Lisp程序员，就有多少种Lisp。这是因为，只有当你独自一人深入荒漠，用树枝在黄沙上为自己喜欢的Lisp方言写解释器时，你才成为一名真正的Lisp程序员。

目前主要有两种Lisp语言分支：Common
Lisp和Scheme，每一种都有无数种的语言实现。各种Common
Lisp实现都大同小异，而各种Scheme实现表现各异，有些看起来非常的不同，但它们的基本规则都相同。这两种语言都非常有趣，但我却没有在实际工作中用过其中的任何一种。这两种语言中分别在不同的方面让我苦恼，在所有的Lisp方言中，我最喜欢的是Clojure语言。我不想在这个问题上做更多的讨论，这是个人喜好，说起来很麻烦。Clojure，就像其它种的Lisp语言一样，有一个REPL(Read
Eval Print Loop)环境，你可以在里面写代码，而且能马上得到运行结果。例如：

通常，你会看到一个提示符，就像user>，但在本文中，我使用的是更实用的显示风格。这篇文章中的任何REPL代码你都可以直接拷贝到Try
Clojure运行。

我们可以像这样调用一个函数：

程序打印出“Hello
World”，并返回nil。我知道，这里的括弧看起来好像放错了地方，但这是有原因的，你会发现，他跟Java风格的代码没有多少不同：

这种Clojure在执行任何操作时都要用到括弧：

在Clojure中，我们同样能使用向量(vector):

还有符号(symbol):

这里要用引号(')，因为Symbol跟变量一样，如果不用引号前缀，Clojure会把它变成它的值。list数据类型也一样：

以及嵌套的list：

定义变量和使用变量的方法像这样：

我的讲解会很快，很多细节问题都会忽略掉，有些我讲的东西可能完全是错误的。请原谅，我尽力做到最好。在Clojure中，创建函数的方法是这样：

这显示的又长又难看的东西是被编译后的函数被打印出的样子。不要担心，你不会经常看到它们。这是个函数，使用fn操作符创建，有一个参数n。这个参数和2相乘，并当作结果返回。Clojure和其它所有的Lisp语言一样，函数的最后一个表达式产生的值会被当作返回值返回。

如果你查看一个函数如何被调用：

你会发现它的形式是，括弧，函数，参数，反括弧。或者用另一种方式描述，这是一个列表序列，序列的第一位是操作符，其余的都是参数。

让我们来调用这个函数：

我在这里所做的是定义了一个匿名函数，并立即应用它。让我们来给这个函数起个名字：

现在我们通过这个名字来使用它：

正像你看到的，函数就像其它数据一样被存放到了变量里。因为有些操作会反复使用，我们可以使用简化写法：

我们使用if来给这个函数设定一个最大值：

if操作符有三个参数：断言，当断言是true时将要执行的语句，当断言是
false
时将要执行的语句。也许写成这样更容易理解：

非常基础的东西。让我们来看一下更有趣的东西。假设说你想把Lisp语句反着写。把操作符放到最后，像这样：

我们且把这种语言叫做Psil(反着写的Lisp...我很聪明吧)。很显然，如果你试图执行这条语句，它会报错：

Clojure会告诉你4不是一个函数(函数是必须是clojure.lang.IFn接口的实现)。

我们可以写一个简单的函数把Psil转变成Lisp：

当我执行它时出现了问题：

很明显，我弄错了一个地方，因为在psil被调用之前，Clojure会先去执行它的参数，也就是(4
5 +)，于是报错了。我们可以显式的把这个参数转化成list，像这样：

这回它就没有被执行，但却反转了。要想运行它并不困难：

你开始发现Lisp的强大之处了。事实上，Lisp代码就是一堆层层嵌套的列表序列，你可以很容易从这些序列数据中产生可以运行的程序。

如果你还没明白，你可以在你常用的语言中试一下。在数组里放入2个数和一个加号，通过数组来执行这个运算。你最终得到的很可能是一个被连接的字符串，或是其它怪异的结果。这种编程方式在Lisp是如此的非常的常见，于是Lisp就提供了叫做宏(macro)的可重用的东西来抽象出这种功能。宏是一种函数，它接受未执行的参数，而返回的结果是可执行的Lisp代码。

让我们把psil传化成宏：

唯一不同之处是我们现在使用defmacro来替换defn。这是一个非常大的改动：

请注意，虽然参数并不是一个有效的Clojure参数，但程序并没有报错。这是因为参数并没有被执行，只有当psil处理它时才被执行。psil把它的参数按数据看待。如果你听说过有人说Lisp里代码就是数据，这就是我们现在在讨论的东西了。数据可以被编辑，产生出其它的程序。这种特征使你可以在Lisp语言上创建出任何你需要的新型语法语言。

在Clojure里有一种操作符叫做macroexpand，它可以使一个宏跳过可执行部分，这样你就能看到是什么样的代码将会被执行：

你可以把宏看作一个在编译期运行的函数。事实上，在Lisp里，编译期和运行期是杂混在一起的，你的程序可以在这两种状态下来回切换。我们可以让psil宏变的罗嗦些，让我们看看代码是如何运行的，但首先，我要先告诉你do这个东西。

do是一个很简单的操作符，它接受一批语句，依次运行它们，但这些语句是被整体当作一个表达式，例如：

通过使用do，我们可以使宏返回多个表达式，我们能看到更多的东西：

新宏会打印出“compile
time”，并且返回一个do代码块，这个代码块打印出“run
time”，并且反着运行一个表达式。这个反引号`的作用很像引号'，但它的独特之处是你可以使用~符号在其内部解除引号。如果你听不明白，不要担心，让我们来运行它一下：

如预期的结果，编译期发生在运行期之前。如果我们使用macroexpand，或得到更清晰的信息：

可以看出，编译阶段已经发生，得到的是一个将要打印出“run
time”的语句，然后会执行(+
5 4)。println也被扩展成了它的完整形式，clojure.core/println，不过你可以忽略这个。然后代码在运行期被执行。

这个宏的输出本质上是：

而在宏里，它需要被写成这样：

反引号实际上是产生了一种模板形式的代码，而波浪号让其中的某些部分被执行((reverse
exp))，而其余部分被保留。对于宏，其实还有更令人惊奇的东西，但现在，它已经很能变戏法了。

这种技术的力量还没有被完全展现出来。按着"为什么我喜欢Smalltalk？"的思路，我们假设Clojure里没有if语法，只有cond语法。也许在这里，这并不是一个太好的例子，但这个例子很简单。

cond功能跟其它语言里的switch或case很相似：

使用 cond，我们可以直接创建出my-if函数：

初看起来似乎好使：

但有一个问题。你能发现它吗？my-if执行了它所有的参数，所以，如果我们像这样做，它就不能产生预期的结果了：

把my-if转变成宏：

问题解决了：

这只是对宏的强大功能的窥豹一斑。一个非常有趣的案例是，当面向对象编程被发明出来后(Lisp的出现先于这概念)，Lisp程序员想使用这种技术。C程序员不得不使用他们的编译器发明出新的语言,C++和Object
C。Lisp程序员却创建了一堆宏，就像defclass，
defmethod等。这全都要归功于宏。变革，在Lisp里，只是一种进化。

来源：http://www.vaikan.com/why-i-love-lisp/

最新文章

1. [nRF51822] 13、浅谈nRF51822和NRF24LE1/NRF24LU1/NRF24L01经典2.4G模块无线通信配置与流程
2. Java各种排序算法详解
3. ACM 杭电HDU 2084 数塔 [解题报告]
4. 小游戏Step表
5. Linux常用命令笔记一
6. maven 环境的配置 JAVA_HOME not found in your envirnment
7. web前端学习笔记(CSS固定宽度布局)
8. C# 5.0 新特性——Async和Await使异步编程更简单
9. SQL Server 2008 R2 主从数据库同步
10. POJ 1743 Musical Theme（后缀数组）
11. “尝试加载 Oracle 客户端库时引发 BadImageFormatException”的解决方案
12. css 多行显示省略号....
13. 最常用的 Eclipse 快捷键总结
14. 一则自用iptables例子解释
15. win32创建控件的一些问题
16. zipline框架--简介
17. UI框架
18. 前端笔记-jquery
19. IDEA15 创建javaweb 并配置Tomcat(转)
20. nodejs----http系统模块使用和fs系统模块

热门文章

1. 数据库update的异常一例
2. 读书笔记——Windows环境下32位汇编语言程序设计（3）一些基础知识
3. wait方法和sleep方法的区别
4. ASP.NET导出bdf文件
5. NOIP2008普及组 题解 -SilverN
6. POJ 3255 Roadblocks --次短路径
7. sql 入门经典（第五版） Ryan Stephens 学习笔记 　第四部分：建立复杂的数据库查询/
8. 怪物彈珠Monster Strike 攻略
9. Unity3d+Jenkins 自动编译iOS、Android版本
10. 转载 ---&gt; UITableViewCell的分割线