3. Define a Subclass

(defclass aircraft (position)

((speed :initform 0 :initarg :speed

:accessor speed)

(flightno :initform "" :initarg :flightno

:accessor flightno)))

(setq m1 (make-instance ‘aircraft

:x 5 :y 5 :speed 2

:flightno 1024))

Previous slide

Next slide

Back to first slide

View graphic version