public static Cons clTranslatePrintStreamTree(Cons tree) {
    { Stella_Object stream = tree.rest.value;

      if (stream == Stella.KWD_WARN) {
        return (Cons.cons(Stella.internCommonLispSymbol("WARN"), Cons.yieldFormatArguments(tree).concatenate(Stella.NIL, Stella.NIL)));
      }
      else if (stream == Stella.KWD_ERROR) {
        return (Cons.cons(Stella.internCommonLispSymbol("ERROR"), Cons.yieldFormatArguments(tree).concatenate(Stella.NIL, Stella.NIL)));
      }
      else if (stream == Stella.KWD_CONTINUABLE_ERROR) {
        return (Cons.list$(Cons.cons(Stella.internCommonLispSymbol("CERROR"), Cons.cons(StringWrapper.wrapString("Continue anyway? "), Cons.cons(Cons.yieldFormatArguments(tree).concatenate(Stella.NIL, Stella.NIL), Stella.NIL)))));
      }
      else {
        return (Cons.yieldPrintTree(tree));
      }
    }
  }