public static Cons clTranslateNewArrayTree(Cons tree) {
    { Stella_Object initialelement = tree.rest.rest.value;
      Cons dimensions = Cons.clTranslateListOfTrees(tree.rest.rest.rest);

      initialelement = null;
      return (Cons.list$(Cons.cons(Stella.internCommonLispSymbol("MAKE-ARRAY"), Cons.cons(((dimensions.length() == 1) ? dimensions.value : Cons.cons(Stella.internCommonLispSymbol("LIST"), dimensions.concatenate(Stella.NIL, Stella.NIL))), Cons.cons((((initialelement != null) ? Cons.list$(Cons.cons(Stella.KWD_INITIAL_ELEMENT, Cons.cons(Stella_Object.clTranslateATree(initialelement), Cons.cons(Stella.NIL, Stella.NIL)))) : Stella.NIL)).concatenate(Stella.NIL, Stella.NIL), Stella.NIL)))));
    }
  }