摘自 《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