*/
  public static void printUndefinedSuperClasses(Stella_Object renamed_Class) {
    { Surrogate type = Stella_Object.typify(Stella_Object.coerceToSymbol(renamed_Class));
      List badones = List.newList();

      if (type == null) {
        System.out.println("Illegal class name: " + renamed_Class);
        return;
      }
      Surrogate.collectBadSuperClasses(type, badones);
      if (badones.memberP(type)) {
        if (type.surrogateValue == null) {
          System.out.println(type + " is itself undefined.");
        }
        else {
          System.out.println(type + " itself points to non-class " + type.surrogateValue);
        }
        return;
      }
      { boolean foundP000 = false;

        { Surrogate renamed_Super = null;
          Cons iter000 = badones.theConsList;

          loop000 : for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
            renamed_Super = ((Surrogate)(iter000.value));
            if (renamed_Super.surrogateValue == null) {
              foundP000 = true;
              break loop000;
            }
          }
        }
        if (foundP000) {
          System.out.println("The following (indirect) super(s) of " + type + " are undefined:");
          { Surrogate renamed_Super = null;
            Cons iter001 = badones.theConsList;

            for (;!(iter001 == Stella.NIL); iter001 = iter001.rest) {
              renamed_Super = ((Surrogate)(iter001.value));
              if (renamed_Super.surrogateValue == null) {
                System.out.println("    " + renamed_Super);
              }
            }
          }
        }
      }
      { boolean foundP001 = false;

        { Surrogate renamed_Super = null;
          Cons iter002 = badones.theConsList;

          loop002 : for (;!(iter002 == Stella.NIL); iter002 = iter002.rest) {
            renamed_Super = ((Surrogate)(iter002.value));
            if (renamed_Super.surrogateValue != null) {
              foundP001 = true;
              break loop002;
            }
          }
        }
        if (foundP001) {
          System.out.println("The following (indirect) super(s) of " + type + " point to non-classes:");
          { Surrogate renamed_Super = null;
            Cons iter003 = badones.theConsList;

            for (;!(iter003 == Stella.NIL); iter003 = iter003.rest) {
              renamed_Super = ((Surrogate)(iter003.value));
              if (renamed_Super.surrogateValue != null) {
                System.out.println("    " + renamed_Super + " points to " + renamed_Super.surrogateValue);
              }
            }
          }
        }
      }
    }
  }