ANSI Common Lisp 笔记四(结构)

摘自 《ANSI Common Lisp》

一、结构

要定义一个结构，我们使用defstruct。在最简单的情况下，我们只要给出结构及字段的名字就可以了：
CL-USER> (defstruct point
  x
  y
  )
POINT

这定义了一个 point 具有两个字段 x 与 y。它也隐性地定义了 make-point , point-p, copy-point, point-x 及 point-y 函数。

每一个 make-point 的调用，会返回一个新的 point 。我们可以藉由给予对应的关键字参数，来指定单一字段的值：
CL-USER> (setf p (make-point :x 0 :y 0))
#S(POINT :X 0 :Y 0)

我们可以藉由在本来的定义中，附上一个含有字段名及一个预设表达式的列表，来指定结构字段的缺省值。如果 make-polemic 调用没有替这些字段指定初始值，他们会被设成对应表达式的值：

CL-USER> (defstruct polemic
  (type (progn
  (format t "What kind of polemic was it?")
  (read)))
  (effect nil))
POLEMIC