他のスロットも同時に更新されるstructureのアクセサを作りたいのですが，

(defstruct hoge
x
y)

(defun (setf hoge-x) (new-x h)
(setf (hoge-x h) new-x)
(setf (hoge-y h) (x-to-y new-x)))

としても，hoge-yが更新されません．
どのようにすれば，他のスロットも更新されますか？
教えて下さい．