Structures

• Define with defstruct

• create one with (make-<name> …)

• access slot with <name>-<slotname>

> (defstruct route-segment

node-number

start

end)

ROUTE-SEGMENT

> (setf rs (make-route-segment :node-number 5 :start 2 :end 7))

#S(ROUTE-SEGMENT NODE-NUMBER 5 START 2 END 7)

> (route-segment-start rs)

2

Previous slide

Next slide

Back to first slide

View graphic version