>>452
訂正です．>>452はSBCLでは動きますが，CMUCLでは動きません．
# 何故SBCLでは動いてしまうんだろう・・・

(defun x-to-y (a)
　"Dummy implementation"
　(1+ a))
(defclass hoge ()
　((x :writer (setf my-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 (my-hoge-x h) new-x)
　(setf (hoge-y h) (x-to-y new-x)))
(defsetf hoge-x hoge-x-setter)