>>449
この辺りの過程を規定した自作の structure を作らない限り，避けた方が良さそうですね．
ありがとうございます．

>>450,451
ありがとうございます．綺麗に使うことができる様になりました．
教えて頂いた:accessor版を:writerと:readerを使用する様に変更した版です．

(defun x-to-y (a)
　"Dummy implementation"
　(1+ a))
(defclass hoge ()
　((x :writer (setf hoge-x) :reader hoge-x :initarg :x :initform 0)
　 (y :accessor hoge-y :initarg :y :initform 0)))
(defun hoge-x-setter (h new-x)
　"Exposed writer for the slot X of HOGE"
　(setf (hoge-x h) new-x)
　(setf (hoge-y h) (x-to-y new-x)))
(defsetf hoge-x hoge-x-setter)