public static Cons yieldMixinMethodTree(MethodSlot method, Stella_Class renamed_Class) {
    { Cons tree = ((Cons)(Stella.unstringifyStellaSource(method.methodStringifiedSource, method.homeModule())));
      Cons parameters = ((Cons)(tree.rest.rest.value));
      Cons selftree = ((Cons)(parameters.value));
      Stella_Object selftypetree = StandardObject.yieldTypeSpecTree(((StandardObject)(method.methodParameterTypeSpecifiers().first())));
      Cons body = tree.nthRest(3);

      if (Stella_Object.safePrimaryType(selftypetree) == Stella.SGT_STELLA_CONS) {
        { Cons selftypetree000 = ((Cons)(selftypetree));

          selftypetree000.firstSetter(StandardObject.yieldTypeSpecTree(renamed_Class.classType));
        }
      }
      else {
        selftypetree = StandardObject.yieldTypeSpecTree(renamed_Class.classType);
      }
      Cons.lastCons(selftree).firstSetter(selftypetree);
      if (renamed_Class == ((Stella_Class)(Stella.SGT_STELLA_OBJECT.surrogateValue))) {
        body = Cons.extractOptions(tree, null).concatenate(Cons.cons(Stella.SYM_STELLA_NULL, Stella.NIL), Stella.NIL);
      }
      return (Cons.list$(Cons.cons(Stella.SYM_STELLA_DEFMETHOD, Cons.cons(tree.rest.value, Cons.cons(Cons.cons(parameters, Cons.list$(Cons.cons(Stella.KWD_AUXILIARYp, Cons.cons(Stella.SYM_STELLA_TRUE, Cons.cons(Stella.KWD_PUBLICp, Cons.cons((method.slotPublicP ? Stella.SYM_STELLA_TRUE : Stella.SYM_STELLA_FALSE), Cons.cons(body.concatenate(Stella.NIL, Stella.NIL), Stella.NIL))))))), Stella.NIL)))));
    }
  }