public static Cons clTranslateMakeTree(Cons tree) {
    { Stella_Class renamed_Class = ((Stella_Class)(Stella_Object.typify(tree.rest.value).surrogateValue));
      Stella_Object classsymbol = Stella_Class.clTranslateClassName(renamed_Class);
      Cons otree = null;

      if ((classsymbol == Stella.internCommonLispSymbol("CONS")) &&
          ((List)(Stella.$CURRENT_STELLA_FEATURES$.get())).membP(Stella.KWD_USE_COMMON_LISP_CONSES)) {
        return (Cons.list$(Cons.cons(Stella.internCommonLispSymbol("CONS"), Cons.cons(Stella.internCommonLispSymbol("NIL"), Cons.cons(Stella.internCommonLispSymbol("NIL"), Cons.cons(Stella.NIL, Stella.NIL))))));
      }
      if (Stella_Class.exceptionClassP(renamed_Class)) {
        otree = Cons.list$(Cons.cons(Stella.internCommonLispSymbol("MAKE-CONDITION"), Cons.cons(Cons.list$(Cons.cons(Stella.internCommonLispSymbol("QUOTE"), Cons.cons(classsymbol, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Symbol.clTranslateGlobalSymbol(Stella.SYM_STELLA_$CONDITION_MESSAGE_KEYWORD$), Cons.cons(Cons.cons(Cons.cons(Symbol.clTranslateGlobalSymbol(Stella.SYM_STELLA_REPLACE_SUBSTRINGS), Cons.cons(Stella_Object.clTranslateATree(tree.rest.rest.value), Cons.list$(Cons.cons(StringWrapper.wrapString("~~"), Cons.cons(StringWrapper.wrapString("~"), Cons.cons(Stella.NIL, Stella.NIL)))))), Stella.NIL), Stella.NIL)))));
      }
      else if ((!((List)(Stella.$CURRENT_STELLA_FEATURES$.get())).membP(Stella.KWD_USE_COMMON_LISP_STRUCTS)) ||
          Stella_Class.clAlwaysTranslateToClosClassP(renamed_Class)) {
        otree = Cons.list$(Cons.cons(Stella.internCommonLispSymbol("MAKE-INSTANCE"), Cons.cons(Cons.list$(Cons.cons(Stella.internCommonLispSymbol("QUOTE"), Cons.cons(classsymbol, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL))));
      }
      else if (((List)(Stella.$CURRENT_STELLA_FEATURES$.get())).membP(Stella.KWD_USE_COMMON_LISP_VECTOR_STRUCTS)) {
        otree = Cons.cons(Symbol.clTranslateGlobalSymbol(Stella.SYM_STELLA_CLSYS_MAKE), Cons.cons(classsymbol, Cons.cons(IntegerWrapper.wrapInteger(Stella_Class.clStructSlots(renamed_Class).length() + 1), Stella.NIL)));
      }
      else {
        otree = Cons.cons(Stella_Class.yieldStructConstructorName(renamed_Class), Stella.NIL);
      }
      return (otree);
    }
  }