public static Cons clTranslateCaseTree(Cons tree) {
    { boolean otherwiseP = false;

      tree.secondSetter(Stella_Object.clTranslateATree(tree.rest.value));
      { Cons cond = null;
        Cons iter000 = ((Cons)(tree.rest.rest));

        for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
          cond = ((Cons)(iter000.value));
          if (cond.value == Stella.SYM_STELLA_OTHERWISE) {
            otherwiseP = true;
            cond.firstSetter(Stella.internCommonLispSymbol("OTHERWISE"));
          }
          else if (Stella_Object.consP(cond.value)) {
            cond.firstSetter(Cons.clTranslateListOfTrees(((Cons)(cond.value))));
          }
          else {
            cond.firstSetter(Stella_Object.clTranslateATree(cond.value));
          }
          cond.rest = Cons.clTranslateListOfTrees(cond.rest);
        }
      }
      tree.firstSetter((otherwiseP ? Stella.internCommonLispSymbol("CASE") : Stella.internCommonLispSymbol("ECASE")));
      return (tree);
    }
  }