Add a xml node.
fun [ObjSXMLNode S] ObjSXMLNode
Return : ObjSXMLNode the new node object or NIL if the function fails