GCL笔记02-CD数据库1

首先，list函数收集参数到一个表格：

我们也可以用list收集含有关键字的数据：

当我们用getf指定关键字时，会返回关键字后的数据：

这里我们指定了关键字:a，于是返回了值1。

下面我们就可以定义一个函数，函数的参数是CD信息，返回一个列表：

defun定义函数的格式为：

(defun 函数名 (参数*) (函数体*))

这里的make-cd函数有四个参数，函数体是用list生成含有四个关键字的列表，函数体的最后一个表达式的值会被返回，此处返回的即是生成的列表。

定义过之后，我们可以这样调用：

这样就在list函数之上抽象了一层，下面我们把make-cd生成的列表收集到一个全局变量（也就是我们的数据库喽）里面：

先定义这个全局变量：

我们用defvar定义了一个名为*db*的全局变量，初始值为nil，也就是空表，这样我们可以定义一个函数向*db*里面push唱片信息：

这次我们调用add-record函数向*db*里面push几条唱片信息

我们生成的cd信息终于又地方存放了，我们直接在GCL控制台输入*db*以查看其内容，这是一个自求值的过程：

关闭GCL，下次重启之后还是得重写上述语句，这次我们用VIM把代码写入到一个cd.lisp里面：

当我们重启GCL控制台时，加载cd.lisp：

我们查看下*db*的内容：

这样真是太好了，起码我中午回来不用从头写了:)

转载于:https://my.oschina.net/tshemeng/blog/59318