8. Use SETF methods

(defmethod (setf x-position) :after

(newvalue (a aircraft))

(redraw-display *screen*))

;; This causes a redisplay when the

;; position changes

(setf (x-position myaircraft) 16)

Previous slide

Next slide

Back to first slide

View graphic version