[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp

[David Lichteblau]

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))))))