Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv6304/dom
Modified Files: dom-impl.lisp Log Message: 674/808 hc_nodedocumentfragmentnormalize2.xml -TEST FAILED: The assertion (NULL DOMTEST-TESTS::|txtNode|) failed.
Date: Sun Dec 11 19:47:28 2005 Author: dlichteblau
Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.22 cxml/dom/dom-impl.lisp:1.23 --- cxml/dom/dom-impl.lisp:1.22 Sun Dec 11 19:43:45 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 19:47:28 2005 @@ -1106,6 +1106,10 @@ (dom:remove-child n child) ;; not (incf i) ) + ((zerop (length (dom:data child))) + (dom:remove-child n child) + ;; not (incf i) + ) (t (setf previous child) (incf i))))))