Изменение значения слота и функции доступа

(setq p (make-instance 'polar :radius 5 :angle (/ pi 6)))
[POLAR radius 5 angle 0.5235988]

(radius p) => 5
(angle p)  => 0.5235988

(setf (slot-value p 'radius) 10) ; присваивание по имени
(setf (angle p) (/ pi 4))        ; присваивание с помощью функции доступа

p
[POLAR radius 10 angle 0.7853982]