* @return Stella_Object
   */
  public static Stella_Object warn(Cons body) {
    body = Cons.formatMessageArguments(body, false);
    if (((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_COMMON_LISP) {
      return (Cons.list$(Cons.cons(Stella.SYM_STELLA_PRINT_STREAM, Cons.cons(Stella.KWD_WARN, Cons.cons(body.concatenate(Stella.NIL, Stella.NIL), Stella.NIL)))));
    }
    else {
      return (Cons.list$(Cons.cons(Stella.SYM_STELLA_PRINT_STREAM, Cons.cons(Stella.SYM_STELLA_STANDARD_WARNING, Cons.cons(StringWrapper.wrapString("Warning: "), Cons.cons(body.concatenate(Cons.cons(Stella.SYM_STELLA_EOL, Stella.NIL), Stella.NIL), Stella.NIL))))));
    }
  }