if (str.charAt(strInd) == '/') { type = "\"OpenClose\""; strInd++; while (str.charAt(strInd) == ' ') strInd++; }  { LispObject ls = LispAtom.New(aEnvironment,"List"); ls.Next().Set(info); info = LispSubList.New(ls); }  LispObject xm = LispAtom.New(aEnvironment,"XmlTag"); LispObject tg = LispAtom.New(aEnvironment,tag); LispObject tp = LispAtom.New(aEnvironment,type); info.Next().Set(tp); tg.Next().Set(info); xm.Next().Set(tg); RESULT(aEnvironment, aStackTop).Set(LispSubList.New(xm));  }
    public void Eval(LispEnvironment aEnvironment,int aStackTop) throws Exception    {      aEnvironment.iCurrentOutput.Write("Function not yet implemented : LispExplodeTag");//TODO FIXME    }