(defmethod (setf slot-value-using-class) :around
(new-value (cl hyperobject-class) obj (slot hyperobject-esd))
;; this does not work on gerd-pcl in cmu 18e+
(defmethod (setf slot-value-using-class) :around
(new-value (cl hyperobject-class) obj (slot hyperobject-esd))
;; this does not work on gerd-pcl in cmu 18e+