* @param clauses
   * @return Stella_Object
   */
  public static Stella_Object xmlTagCase(Stella_Object item, Cons clauses) {
    if (Stella_Object.isaP(item, Stella.SGT_STELLA_SYMBOL)) {
      return (Symbol.expandXmlTagCase(((Symbol)(item)), clauses));
    }
    else {
      { Symbol var = Stella.localGensym("ITEM");

        return (Cons.list$(Cons.cons(Stella.SYM_STELLA_LET, Cons.cons(Cons.cons(Cons.cons(var, Cons.list$(Cons.cons(Stella.SYM_STELLA_XML_ELEMENT, Cons.cons(item, Cons.cons(Stella.NIL, Stella.NIL))))), Stella.NIL), Cons.cons(Symbol.expandXmlTagCase(var, clauses), Cons.cons(Stella.NIL, Stella.NIL))))));
      }
    }
  }