public static Stella_Object signalParsingError(Cons message) {
    { Symbol streamvar = Stella.localGensym("STREAM");

      message = Cons.formatMessageArguments(message, false);
      return (Cons.list$(Cons.cons(Logic.SYM_STELLA_LET, Cons.cons(Cons.cons(Cons.cons(streamvar, Cons.cons(Cons.list$(Cons.cons(Logic.SYM_STELLA_NEW, Cons.cons(Logic.SYM_STELLA_OUTPUT_STRING_STREAM, Cons.cons(Stella.NIL, Stella.NIL)))), Stella.NIL)), Stella.NIL), Cons.cons(Cons.list$(Cons.cons(Logic.SYM_STELLA_SPECIAL, Cons.cons(Cons.cons(Cons.list$(Cons.cons(Logic.SYM_STELLA_$PRINTREADABLYp$, Cons.cons(Logic.SYM_STELLA_TRUE, Cons.cons(Stella.NIL, Stella.NIL)))), Stella.NIL), Cons.cons(Cons.list$(Cons.cons(Logic.SYM_STELLA_PRINT_STREAM, Cons.cons(streamvar, Cons.cons(Cons.cons(StringWrapper.wrapString("PARSING ERROR: "), message.concatenate(Cons.list$(Cons.cons(StringWrapper.wrapString("."), Cons.cons(Logic.SYM_STELLA_EOL, Cons.cons(Stella.NIL, Stella.NIL)))), Stella.NIL)), Stella.NIL)))), Cons.cons(Cons.list$(Cons.cons(Logic.SYM_LOGIC_HELP_SIGNAL_PROPOSITION_ERROR, Cons.cons(streamvar, Cons.cons(Cons.cons(Logic.KWD_ERROR, Stella.NIL), Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL)))))), Cons.cons(Cons.list$(Cons.cons(Logic.SYM_STELLA_SIGNAL_EXCEPTION, Cons.cons(Cons.list$(Cons.cons(Logic.SYM_STELLA_NEW, Cons.cons(Logic.SYM_LOGIC_PARSING_ERROR, Cons.cons(Logic.KWD_MESSAGE, Cons.cons(Cons.list$(Cons.cons(Logic.SYM_STELLA_THE_STRING, Cons.cons(streamvar, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL)))))), Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL)))))));
    }
  }