我们已经了解如何使用标准的输入和输出是由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函数关闭一个流。
