public static Stella_Object messageToString(Cons body) {
    { Cons messagearguments = Cons.formatStringMessageArguments(body, false);
      Symbol messagevar = Stella.localGensym("MESSAGE");

      return (Cons.list$(Cons.cons(Stella.SYM_STELLA_VRLET, Cons.cons(Cons.cons(Cons.cons(messagevar, Cons.list$(Cons.cons(Stella.SYM_STELLA_STRING, Cons.cons(Stella.SYM_STELLA_NULL, Cons.cons(Stella.NIL, Stella.NIL))))), Stella.NIL), Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_SPECIAL, Cons.cons(Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_$PRINTREADABLYp$, Cons.cons(Stella.SYM_STELLA_TRUE, Cons.cons(Stella.NIL, Stella.NIL)))), Stella.NIL), Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_SETQ, Cons.cons(messagevar, Cons.cons(Cons.cons(Cons.cons(Stella.SYM_STELLA_CONCATENATE, messagearguments.concatenate(Stella.NIL, Stella.NIL)), Stella.NIL), Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(messagevar, Cons.cons(Stella.NIL, Stella.NIL)))))));
    }
  }