結構是用戶定義的數據類型，它讓用戶可以合并不同種類的數據項。

結構被用于表示記錄。假設要跟蹤圖書館中的書籍?？赡芟Ｍ櫫私饷勘緯囊韵聦傩裕?/p>

• 標題 - Title

• 作者 - Author

• 科目 - Subject

• 書籍編號 - Book ID

定義一個結構

LISP的defstruct宏允許定義一個抽象的記錄結構。defstruct語句定義了一個新的數據類型，項目結構中不止一個成員。

討論defstruct宏的格式，編寫本書的結構的定義。可以定義本書的結構為：

(defstruct book 
  title 
  author 
  subject 
  book-id 
 )

請注意:

• 上述聲明創(chuàng)建一個本書結構有四個命名組件。因此，創(chuàng)建的每一個本書將是這個結構的對象。

• 它定義了一個名為book-title，book-subject，book-book-id的書籍，這將需要一個參數，書的結構，并且將返回的字段標題，作者，主題和本書的book-book-id對象。這些函數被稱為接入功能。

• 符號書成為一個數據類型，它可以使用typep謂詞檢查。

• 也將命名為book-p隱函數，這是一個謂詞，將為true，如果它的參數是本、書，則返回false。

• 另一個名為make-book 隱函數將被創(chuàng)建，這是一種構造方法，其中，當被調用時，將創(chuàng)建一個數據結構具有四個組件，適于與所述接入功能的使用。

• #S語法指的是一個結構，可以用它來讀取或打印一本書的實例

• copy-book書本參數還定義了隱函數。這需要書的對象，并創(chuàng)建另一個書的對象，這是第一個副本。調用此函數復印機功能。

• 可以使用setf改變書籍的組成結構，例如

(setf (book-book-id book3) 100)

示例

創(chuàng)建一個名為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)

當執(zhí)行代碼，它返回以下結果：

#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