5. Use Method Combination

(defclass aircraft-with-icon (aircraft)

())

(defmethod draw :AFTER

((a aircraft-with-icon) stream)

"After drawing the name, draw the icon"

(draw-icon stream *plane-icon*

(x-position a) (y-position a)))

Previous slide

Next slide

Back to first slide

View graphic version