-(defmethod (setf slot-value-using-class)
- :around (new-value (cl hyperobject-class) obj
- (slot standard-effective-slot-definition))
- (call-next-method))
-
-(defmethod (setf slot-value-using-class)
- :around (new-value (cl hyperobject-class) obj
- (slot standard-effective-slot-definition))
- #+ignore
- (cmsg-c :verbose "Setf slot value: class: ~s, obj: ~s, slot: ~s, value: ~s" cl (class-of obj) slot new-value)
+;; 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))