2. Make an Instance

(setq s1 (make-instance 'position))

(x-position s1)

• 0

(setf (x-position s1) 5)

(x-position s1)

• 5

(setq s2 (make-instance 'position :x 10 :y 10))

(x-position s2)

• 10

Previous slide

Next slide

Back to first slide

View graphic version