public static Cons clTranslateWhileTree(Cons tree) {
    { Stella_Object test = Stella_Object.clTranslateBooleanTest(tree.rest.value, false);
      Cons body = Cons.clTranslateListOfTrees(tree.rest.rest);

      tree.rest.rest = Stella.NIL;
      return (((body == Stella.NIL) ? Cons.list$(Cons.cons(Stella.internCommonLispSymbol("LOOP"), Cons.cons(Stella.SYM_STELLA_WHILE, Cons.cons(test, Cons.cons(Stella.NIL, Stella.NIL))))) : Cons.list$(Cons.cons(Stella.internCommonLispSymbol("LOOP"), Cons.cons(Stella.SYM_STELLA_WHILE, Cons.cons(test, Cons.cons(Cons.cons(Stella.SYM_STELLA_DO, Cons.maybeWrapWithContinueLabel(body).concatenate(Stella.NIL, Stella.NIL)), Stella.NIL)))))));
    }
  }