TutorialsPoint Lisp 教程

来源：易百教程

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程序中异常多的括号，当然从现在的角度来讲，这种设计的确对程序员不大友好，不过考虑到五六十年代的计算机处理能力，简化语言本身的设计在那时算得上是当务之急了。

约翰·麦卡锡发明LISP于1958年，FORTRAN语言的发展后不久。首次由史蒂夫·拉塞尔实施在IBM704计算机上。

它特别适合用于人工智能方案，因为它有效地处理的符号信息。

Common Lisp的起源，20世纪80年代和90年代，分别接班人Maclisp像ZetaLisp和NIL(Lisp语言的新实施)等开发。

它作为一种通用语言，它可以很容易地扩展为具体实施。

编写Common Lisp程序不依赖于机器的具体特点，如字长等。

Common Lisp的特点

这是机器无关

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

它允许动态更新的程序。

它提供了高层次的调试。

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

它提供了方便的宏系统。

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

它是以表达为主。

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

它提供完整的I/ O库。

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

LISP的内置应用程序

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

Emacs

G2

AutoCad

Igor Engraver

Yahoo Store

LISP - 概述介绍 - Lisp教程

约翰·麦卡锡发明LISP于1958年，FORTRAN语言的发展后不久。首次由史蒂夫·拉塞尔实施在IBM704计算机上。

它特别适合用于人工智能方案，因为它有效地处理的符号信息。

Common Lisp的起源，20世纪80年代和90年代，分别接班人Maclisp像ZetaLisp和NIL(Lisp语言的新实施)等开发。

它作为一种通用语言，它可以很容易地扩展为具体实施。

编写Common Lisp程序不依赖于机器的具体特点，如字长等。

Common Lisp的特点

这是机器无关

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

它允许动态更新的程序。

它提供了高层次的调试。

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

它提供了方便的宏系统。

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

它是以表达为主。

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

它提供完整的I/ O库。

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

LISP的内置应用程序

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

Emacs

G2

AutoCad

Igor Engraver

Yahoo Store

LISP - 程序结构 - Lisp教程

LISP表达式称为符号表达式或S-表达式。s表达式是由三个有效对象，原子，列表和字符串。

任意的s-表达式是一个有效的程序。

Lisp程序在解释器或编译的代码运行。

解释器会检查重复的循环，这也被称为读 - 计算 - 打印循环(REPL)源代码。它读取程序代码，计算，并打印由程序返回值。

一个简单的程序

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

(+7911)

LISP返回结果：

27

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

(write(+7911))

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

27

Lisp使用前缀表示法

可能已经注意到，使用LISP前缀符号。

在上面的程序中的+符号可以作为对数的求和过程中的函数名。

在前缀表示法，运算符在自己操作数前写。例如，表达式，

a * ( b + c ) / d

将被写为：

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

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

此转换的数学表达式为：

(60 * 9 / 5) + 32

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

(write(+ (* (/ 9 5) 60) 32))

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

140

计算Lisp程序

计算LISP程序有两部分：

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

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

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

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

求值器定义为那些从s-表达式内置的Lisp语法形式。计算第二个级别定义的语法决定了S-表达式是LISP语言形式。

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

'Hello World' 程序

学习一门新的编程语言并没有真正起飞，直到学会如何迎接语言的整个世界，对吧！

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

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

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

Hello World
I am at 'Tutorials Yiibai'! Learning LISP

LISP - 基本语法 - Lisp教程

LISP基本构建块

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

atom

list

string

一个原子是一个数字连续字符或字符串。它包括数字和特殊字符。

以下是一些有效的原子的例子：

hello-from-tutorials-yiibai
name
123008907
*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'! "

添加注释

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

例如，

(write-line "Hello World") ; greet the world
; tell them your whereabouts
(write-line "I am at 'Tutorials Yiibai'! Learning LISP")

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

Hello World
I am at 'Tutorials Yiibai'! Learning LISP

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

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

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

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

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

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

数字

字母t，即表示逻辑真

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

稍微介绍一下LISP形式

在前面的章节中，我们提到LISP代码计算过程中采取以下步骤：

读取器转换字符到LISP对象的字符串或 s-expressions.

求值器定义为那些从s-表达式内置的Lisp语法形式。计算第二个级别定义的语法决定了S-表达式是LISP语言形式。

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

一个原子

空或非名单

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

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

LISP命名约定

名称或符号可以包含任意数量的空白相比，开放和右括号，双引号和单引号，反斜杠，逗号，冒号，分号和竖线其他字母数字字符。若要在名称中使用这些字符，需要使用转义字符（）。

一个名字可以包含数字，但不能全部由数字组成，因为那样的话它会被解读为一个数字。同样的名称可以具有周期，但周期不能完全进行。

使用单引号

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
(* 2 3)
single quote not used, so expression evaluated
6

LISP - 数据类型 - Lisp教程

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

LISP数据类型可分类为：

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

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

任何变量都可以采取任何的Lisp对象作为它的值，除非明确地声明它。

虽然，这是没有必要指定一个Lisp变量的数据类型，但是，它有助于在一定的循环扩展，在方法声明和其他一些情况下，我们将在后面的章节中讨论。

该数据类型被布置成层次结构。数据类型是一组LISP对象和多个对象可能属于这样的一套。

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

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

在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函数定义，结构类型的名称将成为一个有效的类型符号。>/p>

示例1

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

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

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

10
34.567
123.78
NIL
110000.0
62

实例2

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

(setq x 10)
(setq y 34.567)
(setq ch nil)
(setq n 123.78)
(setq bg 11.0e+4)
(setq r 124/2)
(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 0 281474976710655)
SINGLE-FLOAT
SINGLE-FLOAT
NULL
SINGLE-FLOAT
(INTEGER 0 281474976710655)

LISP - 宏 - Lisp教程

宏可以扩展标准LISP的语法。

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

定义一个宏

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

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

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

实例

让我们写了一个名为setTo10简单的宏，将采取一系列并将其值设置为10。

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

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

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

25
10

LISP - 变量 - Lisp教程

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

全局变量

全局变量有永久值在整个LISP系统，并保持有效，直到指定的新值。

全局变量是使用defvar结构一般声明。

例如：

(defvar x 234)
(write x)

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

234

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

例如，

->(setq x 10)

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

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

示例

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

(setq x 10)
(setq y 20)
(format t "x = ~2d y = ~2d ~%" x y)
(setq x 100)
(setq y 200)
(format t "x = ~2d y = ~2d" x y)

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

x = 10 y = 20
x = 100 y = 200

局部变量

局部变量在给定的过程中定义。被命名为一个函数定义中参数的参数也是局部变量。局部变量只能访问内相应的功能。

像的全局变量，也可以使用本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))
        (y '(1 2 3))
        (z '(p q 10)))
(format t "x = ~a y = ~a z = ~a" x y z))

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

x = (A B C) y = (1 2 3) z = (P Q 10)

LISP - 常量 - 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 10)

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

Radius:  10.0
Area:   314.1592

LISP - 运算符 - Lisp教程

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

允许对数据的操作都可以归类为：

算术运算

比较操作

逻辑运算

位运算

算术运算

下表列出了所有支持的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 10)
(setq b 20)
(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 3))
(format t "~% Decrement A by 4 = ~d" (decf a 4))

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

A + B = 30
A - B = -10
A x B = 200
B / A = 2
Increment A by 3 = 13
Decrement A by 4 = 9

比较操作

下表列出了所有支持的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 10)
(setq b 20)
(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 is 20
Min of A and B is 10

布尔值逻辑操作

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 10)
(setq b 20)
(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 5)
(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 0)
(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 10)
(setq b 0)
(setq c 30)
(setq d 40)
(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 10)
(setq b 20)
(setq c nil)
(setq d 40)
(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 is 20
A or B is 10
not A is NIL

A and B is NIL
A or B is 5
not A is T

A and B is NIL
A or B is 0
not A is T

Result of and operation on 10, 0, 30, 40 is 40
Result of and operation on 10, 0, 30, 40 is 10

Result of and operation on 10, 20, nil, 40 is NIL
Result of and operation on 10, 20, nil, 40 is 10

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

对数位运算

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

p | q | p and q | p or q | p xor q
0 | 0 | 0 | 0 | 0
0 | 1 | 0 | 1 | 1
1 | 1 | 1 | 1 | 0
1 | 0 | 0 | 1 | 1

Assume if A = 60; and B = 13; now in binary format they will be as follows:

A = 0011 1100
B = 0000 1101
-----------------
A and B = 0000 1100
A or B = 0011 1101
A xor B = 0011 0001
not A  = 1100 0011

通过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 60)
(setq b 13)
(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 10)
(setq b 0)
(setq c 30)
(setq d 40)
(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 is 12
BITWISE INCLUSIVE OR of a and b is 61
BITWISE EXCLUSIVE OR of a and b is 49
A NOT B is -62
A EQUIVALANCE B is -50

Result of bitwise and operation on 10, 0, 30, 40 is 0
Result of bitwise or operation on 10, 0, 30, 40 is 62
Result of bitwise xor operation on 10, 0, 30, 40 is 60
Result of bitwise eqivalance operation on 10, 0, 30, 40 is -61

LISP - 决策 - Lisp教程

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

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

LISP提供了以下类型的决策构造。点击以下链接，查看其详细信息。

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

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 10)
(cond ((> a 20)
    (format t "~% a is less than 20"))
(t (format t "~% value of a is ~d " a)))

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

value of a is 10

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

if结构

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

if的语法：

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

示例1

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

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

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

value of a is 10

示例2

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

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

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

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

a is less than 20
value of a is 10

示例 3

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

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

(setq a 100)
(if (> a 20)
   (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 20
value of a is 100

when构造，

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

when宏的语法：

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

示例

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

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

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

a is greater than 20
value of a is 100

case构造

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

该case宏的语法是：

The template for CASE is:

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

示例

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

(setq day 4)
(case day
(1 (format t "~% Monday"))
(2 (format t "~% Tuesday"))
(3 (format t "~% Wednesday"))
(4 (format t "~% Thursday"))
(5 (format t "~% Friday"))
(6 (format t "~% Saturday"))
(7 (format t "~% Sunday")))

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

Thursday

LISP - 循环 - Lisp教程

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

LISP提供的结构来处理循环要求以下类型。点击以下链接，查看其详细信息。

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

循环loop结构

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

它的语法如下：

(loop (s-expressions))

例子

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

(setq a 10)
(loop
   (setq a (+ a 1))
   (write a)
   (terpri)
   (when (> a 17) (return a)))

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

11
12
13
14
15
16
17
18

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

循环的构造

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 from 10 to 20
     do (print a)
)

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

10
11
12
13
14
15
16
17
18
19
20

示例3

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

(loop for x from 1 to 20
  if(evenp x)
  do (print x)
)

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

2
4
6
8
10
12
14
16
18
20

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 0 (+ 2 x))
    (y 20 ( - y 2)))
    ((= x y)(- x y))
    (format t "~% x = ~d  y = ~d" x y))

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

x = 0  y = 20
x = 2  y = 18
x = 4  y = 16
x = 6  y = 14
x = 8  y = 12

dotimes 构造

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

实例，

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

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

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

0 0
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100

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立即执行它，返回的结果是：

Number: 1 Square: 1
Number: 2 Square: 4
Number: 3 Square: 9
Number: 4 Square: 16
Number: 5 Square: 25
Number: 6 Square: 36
Number: 7 Square: 49
Number: 8 Square: 64
Number: 9 Square: 81

退出块

块返回，从允许从正常情况下的任何错误的任何嵌套块退出。

块功能允许创建一个包含零个或多个语句组成的机构命名块。语法是：

(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 3)
                 (return-from inner-block 5))
               (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
5
LEFT-INNER-BLOCK
LEAVING-OUTER-BLOCK

LISP - 函数 - Lisp教程

函数是一组一起执行任务的语句。

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

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) 4))
(write(averagenum 10 20 30 40))

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

25

示例 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 10)

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

请注意：

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

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

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

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

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

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

让我们讨论在简要上述概念。点击以下链接，了解详细信息：

可选参数

其余部分参数

关键字参数

从函数返回的值

lambda函数

映射函数

<a id="op">可选参数</a>

可以使用可选参数定义一个函数。要做到这一点，需要把符号与可选的可选参数的名称之前。

我们将只是显示它接收的参数的函数。

示例

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

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

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

(1 2 3 NIL)
(A B C D)
(A B NIL NIL)
(1 2 3 4)

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

<a id="rp">其余部分参数</a>

有些函数需要采用可变数目的参数。

例如，我们使用格式化函数需要两个必需的参数，数据流和控制字符串。然而，该字符串后，它需要一个可变数目的取决于要显示的字符串中的值的数目的参数。

同样，+ 函数，或 * 函数也可以采取一个可变数目的参数。

可以提供这种可变数目的使用符号与其余参数。

下面的例子说明了这个概念：

示例

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

(defun show-members (a b &rest values) (write (list a b values)))
(show-members 1 2 3)
(terpri)
(show-members 'a 'b 'c 'd)
(terpri)
(show-members 'a 'b)
(terpri)
(show-members 1 2 3 4)
(terpri)
(show-members 1 2 3 4 5 6 7 8 9)

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

(1 2 (3))
(A B (C D))
(A B NIL)
(1 2 (3 4))
(1 2 (3 4 5 6 7 8 9))

<a id="kp">关键字参数</a>

关键字参数允许指定哪个值与特定的参数。

它使用的是 &key 符号表示。

当发送的值到该函数必须先于值 :parameter-name.

下面的例子说明了这个概念。

例子

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

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

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

(1 NIL 2 3)
(P Q R S)
(P NIL NIL Q)
(1 2 NIL NIL)

<a id="rf">从函数返回的值</a>

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

示例 1

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

(defun add-all(a b c d)
  (+ a b c d))
(setq sum (add-all 10 20 30 40))
(write sum)
(terpri)
(write (add-all 23.4 56.7 34.9 10.0))

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

100
125.0

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

示例 2

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

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

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

10

更改一点点代码：

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

它仍然返回：

10

<a id="lf">lambda函数</a>

有时，可能需要一个函数只在一个程序中的位置和功能是如此的微不足道，可能不给它一个名称，也可以不喜欢它存储在符号表中，宁可写一个未命名或匿名函数。

LISP允许编写评估计算在程序中遇到的匿名函数。这些函数被称为Lambda函数。

可以使用lambda表达式创建这样的功能。lambda表达式语法如下：

(lambda (parameters) body)

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

示例

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

(write ((lambda (a b c x)
      (+ (* a (* x x)) (* b x) c))
   4 2 9 3))

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

51

<a id="mf">映射函数</a>

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

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

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

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

示例 1

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

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

(write (mapcar '1+  '(23 34 45 56 67 78 89)))

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

(24 35 46 57 68 79 90)

示例 2

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

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

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

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

(8 27 64 125 216 343 512 729)

示例 3

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

(write (mapcar '+ '(1 3 5 7 9 11 13) '( 2 4 6 8)))

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

(3 7 11 15)

LISP - 谓词 - 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) 1)
       (t ( * num (factorial (- num 1))))))
(setq n 6)
(format t "~% Factorial ~d is: ~d" n (factorial n))

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

Factorial 6 is: 720

LISP - 字符 - 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 is not a character

特殊字符

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

#Backspace

#Tab

#Linefeed

#Page

#Return

#Rubout

字符比较函数

数字比较函数和运算符，如，< 和 >上字符不工作。 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

LISP - 数组 - Lisp教程

LISP允许使用make-array函数来定义一个或多个维数组。一个数组可以任意LISP对象存储为它的元素。

所有数组组成的连续的存储单元。最低的地址对应于第一个元素和最高地址的最后一个元素。

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

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

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

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

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

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

(aref my-array 9)

示例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 '((0 1 2 ) (3 4 5) (6 7 8))))
(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))))

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

(0 X 0 = 0)
(0 X 1 = 0)
(0 X 2 = 0)
(1 X 0 = 0)
(1 X 1 = 1)
(1 X 2 = 2)
(2 X 0 = 0)
(2 X 1 = 2)
(2 X 2 = 4)
(3 X 0 = 0)
(3 X 1 = 3)
(3 X 2 = 6)

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) (1 2 3))
              ((d e f) (4 5 6))
              ((g h i) (7 8 9))
              )))
(setq array2 (make-array 4 :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)))
#(C 1 2 3)

若对数组是二维的：

(setq myarray (make-array '(3 2 3)
            :initial-contents
            '(((a b c) (1 2 3))
              ((d e f) (4 5 6))
              ((g h i) (7 8 9))
              )))
(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) (1 2 3))
              ((d e f) (4 5 6))
              ((g h i) (7 8 9))
              )))
(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 with 5 elements,
;initail value 5
(write (make-array 5 :initial-element 5))
(terpri)
;two dimensional array, with initial element a
(write (make-array '(2 3) :initial-element 'a))
(terpri)
;an array of capacity 14, but fill yiibaier 5, is 5
(write(length (make-array 14 :fill-yiibaier 5)))
(terpri)
;however its length is 14
(write (array-dimensions (make-array 14 :fill-yiibaier 5)))
(terpri)
; a bit array with all initial elements set to 1
(write(make-array 10 :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)

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

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

LISP - 符号 - Lisp教程

在LISP语言中，符号是表示数据对象和有趣的是它也是一个数据对象的名称。

是什么使得符号特殊之处在于他们有分别叫property list,或 plist.

属性列表

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)

LISP - 向量 - Lisp教程

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

创建向量

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

示例1

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

(setf v1 (vector 1 2 3 4 5))
(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 5 :initial-element 0))
(setq b (make-array 5 :initial-element 2))
(dotimes (i 5)
  (setf (aref a i) i))
(write a)
(terpri)
(write b)
(terpri)

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

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

Fill 指针

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

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

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

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

示例

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

(setq a (make-array 5 :fill-yiibaier 0))
(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)

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

LISP - 集合 - Lisp教程

Common Lisp不提供的一组数据类型。然而，它提供的函数数量，它允许一组操作，以可以在列表上执行。

可以添加，删除和搜索列表中的项目，根据不同的标准。还可以执行像不同的集合运算：并，交和集合差。

实现LISP集合

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

adjoin函数可建立一个集合。这需要一个条目和一个列表表示一组，并返回表示包含该项目，并在原设定的所有项目的集合列表。

adjoin函数首先查找的条目给定列表中，一旦找到，将返回原来的名单;否则，创建一个新的cons单元，其car作为该目条，cdr指向原来的列表并返回这个新列表。

该毗函数也需要:key 和 :test关键字参数。这些参数用于检查该条目是否存在于原始列表。

因为，adjoin函数不会修改原来的列表，让列表本身的变化，必须指定由adjoin到原始列表返回的值或者可以使用宏pushnew将条目添加到集合。

示例

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

; creating myset as an empty list
(defparameter *myset* ())
(adjoin 1 *myset*)
(adjoin 2 *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
(2 1)
(2 1)
(3 2 1)

检查成员

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

以下是这些函数的语法：

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)
(2 5/3 'A)
('A 'B 'C)

集合联合

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

以下是这些函数的语法：

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))
       '(#(5 6 7) #(a b) #(g h)) :test-not #'mismatch))

(setq set3 (union '(#(a b) #(5 6 7) #(f h))
       '(#(5 6 7) #(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解释器/编译器。这是原因;实现大集全不建议使用的列表。它工作正常的小集合上。

交集

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

以下是这些函数的语法：

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))
       '(#(5 6 7) #(a b) #(g h)) :test-not #'mismatch))

(setq set3 (intersection '(#(a b) #(5 6 7) #(f h))
       '(#(5 6 7) #(a b) #(g h))))
(write set1)
(terpri)
(write set2)
(terpri)
(write set3)

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

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

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

差集

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))
       '(#(5 6 7) #(a b) #(g h)) :test-not #'mismatch))
(setq set3 (set-difference '(#(a b) #(5 6 7) #(f h))
       '(#(5 6 7) #(a b) #(g h))))
(write set1)
(terpri)
(write set2)
(terpri)
(write set3)

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

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

LISP - 树 - Lisp教程

可以从cons单元构建树的数据结构，如清单列表。

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

树列表的列表

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

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

图解，它可以表示为：

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 '(1 2) '(3 4) '(5 6)))
(setq mylst (copy-list lst))
(setq tr (copy-tree lst))
(write lst)
(terpri)
(write mylst)
(terpri)
(write tr)

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

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

示例 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)

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

((1 2 (3 4 5) ((7 8) (7 8 9))))
((7 2 (3 4 5) ((7 8) (7 8 9))))

建立自己的树

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

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

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

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

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

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

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

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

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

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

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

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

10
(2 (3 4 5) ((7 8) (7 8 9)))

((1 2 (3 4 5) ((7 8) (7 8 9)) (10)))

LISP - 哈希表 - Lisp教程

哈希表的数据结构表示是基于键哈希代码进行组织键 - 值对的集合。它使用键来访问集合中的元素。

哈希表是用于需要使用一键访问元素，可以找出一个有用的键值。在哈希表中每个项目都有一个键/值对。键是用于访问该集合中的项。

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函数的无参数形式。

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

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) '(Charlie Brown))
(setf (gethash '002 empList) '(Freddie Seal))
(write (gethash '001 empList))
(terpri)
(write (gethash '002 empList))

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

(CHARLIE BROWN)
(FREDDIE SEAL)

删除条目

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

其函数语法：

remhash key hash-table

示例

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

(setq empList (make-hash-table))
(setf (gethash '001 empList) '(Charlie Brown))
(setf (gethash '002 empList) '(Freddie Seal))
(setf (gethash '003 empList) '(Mark Mongoose))
(write (gethash '001 empList))
(terpri)
(write (gethash '002 empList))
(terpri)
(write (gethash '003 empList))
(remhash '003 empList)
(terpri)
(write (gethash '003 empList))

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

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

maphash函数

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

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

示例

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

(setq empList (make-hash-table))
(setf (gethash '001 empList) '(Charlie Brown))
(setf (gethash '002 empList) '(Freddie Seal))
(setf (gethash '003 empList) '(Mark Mongoose))
(maphash #'(lambda (k v) (format t "~a => ~a~%" k v)) empList)

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

3 => (MARK MONGOOSE)
2 => (FREDDIE SEAL)
1 => (CHARLIE BROWN)

LISP - 输入和输出 - Lisp教程

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

输入函数

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

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

读取键盘的输入

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

例如，考虑代码片段：

(write ( + 15.0 (read)))

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

25.2

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

示例

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

; the function AreaOfCircle
; 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)

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

Enter Radius: 5 (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-char nil stream nil 'the-end))
    (values))

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

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

输出功能

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

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

SL No. | 函数和说明

1
write object &key :stream :escape :radix :base :circle :pretty :level :length :case :gensym :arraywrite object &key :stream :escape :radix :base :circle :pretty :level :length :case :gensym :array :readably :right-margin :miser-width :lines :pprint-dispatch既写对象通过指定的输出流:stream，默认为标准输出值。其他值默认为打印设置相应的全局变量。

2 | prin1object &optional output-streamprint object &optional output-streampprint object &optional output-streamprinc object &optional output-stream所有这些函数对象的打印形式输出到输出流。但是，下面的不同之处有： prin1 返回对象作为其值。 print 打印与前一个换行符的目标和后跟一个空格。它返回的对象。 pprint 就像印刷不同之处在于省略了结尾间隔。 princ 就像prin1除了输出没有转义字符。

3
write-to-string object &key :escape :radix :base :circle :pretty :level :length :case :gensym :arraywrite-to-stringobject &key :escape :radix :base :circle :pretty :level :length :case :gensym :array :readably :right-margin :miser-width :lines :pprint-dispatchprin1-to-string objectprinc-to-string object该对象被有效地打印和输出的字符被转成一个字符串，并将该字符串返回。

4 | write-char character &optional output-stream它输出的字符输出流，并返回字符。
5 | write-string string &optional output-stream &key :start :end它写入字符串的指定子字符串的字符输出流。
6 | write-line string &optional output-stream &key :start :end它的工作原理与write-string的方式相同，但是之后输出一个换行符。
7 | terpri &optional output-stream它输出一个换行符到output-stream。
8 | fresh-line &optional output-stream它只输出一个换行，如果流不是已经在一行的开始。
9 | finish-output &optional output-streamforce-output &optional output-streamclear-output &optional output-stream 函数finish-output尝试确保发送到输出流的所有输出已达到其目标，然后才返回nil。 函数force-output发起的任何内部缓冲区清空，但返回nil，而无需等待完成或确认。 函数clear-output 尝试中止，以便使尽可能少的输出继续到目标中的任何出色的输出操作。
10 | 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)

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

Enter Number : 3456.78 (STDIN Input)
The Number: 3456.78
The Number Doubled: 6913.56

格式化输出

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)

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

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

LISP - 文件I/O - Lisp教程

我们已经了解如何使用标准的输入和输出是由Common Lisp处理的参数。所有这些函数读取和写入文本文件和二进制文件。唯一不同的是在这种情况下，我们使用流不是标准输入或输出，但对于写入或读取文件的特定目的的流创建的。

在本章中，我们将看到的LISP如何创建，打开，关闭文本或二进制文件的数据存储。

文件代表一个字节序列，如果它是一个文本文件或二进制文件。本章将引导完成重要的功能/宏的文件管理。

打开文件

可以使用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")

写入和读取文件

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.

关闭文件

close函数关闭一个流。

LISP - 结构 - Lisp教程

结构是用户定义的数据类型，它让用户可以合并不同种类的数据项。

结构被用于表示记录。假设要跟踪图书馆中的书籍。可能希望跟踪了解每本书的以下属性：

标题 - Title

作者 - Author

科目 - Subject

书籍编号 - Book ID

定义一个结构

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

示例

创建一个名为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) 100)
(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

LISP - 包 - Lisp教程

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

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

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

有两个预定义的包在LISP：

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

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

LISP包函数

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

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

创建一个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一个新的源代码文件，并在其中输入如下代码：

(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

LISP - 错误处理 - Lisp教程

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

在Common Lisp的术语中，异常被称为条件。

事实上，条件比在传统编程语言的异常更为普遍，因为一个条件表示任何事件，错误与否，这可能会影响各级函数调用堆栈。

在LISP状态处理机制，处理的条件是用来警告信号(例如通过打印一个警告)，而在调用堆栈的上层代码可以继续工作，这样的情况下以这样一种方式。

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

信号的条件

处理条件

重启进程

处理一个条件

让我们处理由除零所产生的条件的例子，在这里解释这些概念。

需要处理的条件如下步骤：

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

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

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

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

每个处理程序包括：

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

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

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

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

(handler-case expression
  error-clause*)

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

condition-type ([var]) code)

重新启动阶段

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

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

handler-bind的基本形式如下：

(handler-bind (binding*) form*)

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

条件类型

一个参数的处理函数

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

可以有多个重新启动。

示例

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

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

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

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

 (defun division-function (value1 value2)
   (restart-case
       (if (/= value2 0)
           (/ 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
Value: 1
error signaled: denominator is zero
Value: 5
error signaled: denominator is zero
Done.

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

LISP的错误信号功能

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

用户程序指定一个错误信息（字符串）。该函数处理这个消息，并且可能/可能不会显示给用户。

错误信息应该通过应用的格式化功能进行构造，不应该在开头或结尾包含一个换行符，也无需指明错误，如LISP系统将根据其喜好的样式利用这些服务。

SL No. | 函数和说明
1 | error format-string &rest args它标志着一个致命的错误。这是不可能从这种错误的继续;这样的错误将永远不会返回到其调用者。
2 | cerror continue-format-string error-format-string &rest args它发出错误信号，并进入调试器。但是，它允许程序从调试器解决错误之后继续。
3 | warn format-string &rest args它打印一条错误消息，但一般不会进入调试
4 | 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))

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

120
*** - -1 is a negative number.

LISP - 对象系统（CLOS） - Lisp教程

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

类的定义

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

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

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

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

:accessor 函数名称

:initform 表达式

:initarg 符号

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

(defclass Box ()
(length
breadth
height))

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

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

当定义一个类可以为每个插槽指定访问。例如，把我们的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)))

类创建实例

通用函数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 Box is 10
Breadth of the Box is 10
Height of the Box is 5

定义一个类的方法

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 Box is 10
Breadth of the Box is 10
Height of the Box is 5
Volume of the Box is 500

继承

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 Wooden Box is 10
Breadth of the Wooden Box is 10
Height of the Wooden Box is 5
Volume of the Wooden Box is 500
Price of the Wooden Box is 1000