public static void addPrimaryType(Stella_Class renamed_Class) {
    { Surrogate classtype = renamed_Class.classType;
      Cons slottree = null;

      { boolean testValue000 = false;

        testValue000 = !renamed_Class.abstractP;
        if (testValue000) {
          testValue000 = Surrogate.subtypeOfP(classtype, Stella.SGT_STELLA_OBJECT);
          if (testValue000) {
            { boolean foundP000 = false;

              { Slot slot = null;
                Cons iter000 = renamed_Class.classLocalSlots.theConsList;

                loop000 : for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
                  slot = ((Slot)(iter000.value));
                  if (slot.slotName == Stella.SYM_STELLA_PRIMARY_TYPE) {
                    foundP000 = true;
                    break loop000;
                  }
                }
              }
              testValue000 = foundP000;
            }
            testValue000 = !testValue000;
          }
        }
        if (testValue000) {
          slottree = Cons.list$(Cons.cons(Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_SELF, Cons.cons(Symbol.internSymbolInModule(classtype.symbolName, ((Module)(classtype.homeContext)), true), Cons.cons(Stella.NIL, Stella.NIL)))), Stella.NIL), Cons.cons(Stella.KWD_TYPE, Cons.cons(Stella.SYM_STELLA_TYPE, Cons.cons(Stella.KWD_AUXILIARYp, Cons.cons(Stella.SYM_STELLA_TRUE, Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_RETURN, Cons.cons(classtype, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL))))))));
          renamed_Class.classLocalSlots.push(Symbol.defineInlineMethod(Stella.SYM_STELLA_PRIMARY_TYPE, slottree));
        }
      }
    }
  }