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