+(defmethod slot-readable-p ((slotd effective-child-slot-definition))
+ (declare (ignore slotd))
+ t)
+
+(defmethod compute-slot-reader-function ((slotd effective-child-slot-definition) &optional signal-unbound-p)
+ (declare (ignore signal-unbound-p))