:ACCESSOR Slot Option

• Define a function for accessing the slot

• Advantage: Slot name not advertised

  • Accessor functions are a good idea

(defclass rectangle (square)

((height :initform 0 :initarg :height

:accessor height)))

> (height my-rectangle)

12

> (setf (height my-rectangle) 15)

15

> (slot-value my-rectangle ‘height)

15

Previous slide

Next slide

Back to first slide

View graphic version