-
-#+ignore
-(defmethod (setf slot-value-using-class) :around
- (new-value (cl hyperobject-class) obj (slot hyperobject-esd))
- (let ((value (call-next-method)))
- (cmsg-c :verbose "slot value: class: ~s, obj: ~s, slot: ~s" cl (class-of obj) slot)
- value))