4. Use Methods

(defmethod name ((a aircraft))

(concatenate 'string "flight "

(princ-to-string (flightno a))))

(defmethod draw ((a aircraft) stream)

(draw-text stream (name a)

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

Previous slide

Next slide

Back to first slide

View graphic version