Defining a class

• (defclass <class-name> (<superclass>…)

• ( <slot-definition1>

• <slot-definition2>))

(defclass point (graphic-object)

((x :initarg :x :accessor point-x)

(y :initarg :y :accessor point-y)))

Previous slide

Next slide

Back to first slide

View graphic version