1. Define a Class

(defclass position ()

((x :initform 0 :initarg :x

:accessor x-position)

(y :initform 0 :initarg :y

:accessor y-position)))

Previous slide

Next slide

Back to first slide

View graphic version