Specialization of Slots

(defclass labelled-rectangle (rectangle)

((label :initarg :label)

(font :initform (make-font ‘(modern 10))

:accessor rectangle-font)))

(defclass roman-rectangle (labelled-rectangle)

((font :initform (make-font ‘(times-roman 12)))))

• Most specific :initform is used.

Previous slide

Next slide

Back to first slide

View graphic version