From fed3699960a284b95e5cfe01ab8b74271417b603 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 11 Dec 2005 18:47:27 +0000
Subject: [PATCH]  674/808 hc_nodedocumentfragmentnormalize2.xml -TEST FAILED:
 The assertion (NULL DOMTEST-TESTS::|txtNode|) failed.

---
 DOMTEST           | 3 +--
 dom/dom-impl.lisp | 4 ++++
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/DOMTEST b/DOMTEST
index 1852000..6501d8e 100644
--- a/DOMTEST
+++ b/DOMTEST
@@ -705,7 +705,6 @@ implementationAttribute expandEntityReferences not supported, skipping test
 672/808 hc_namednodemapinvalidtype1.xml
 673/808 hc_nodedocumentfragmentnormalize1.xml
 674/808 hc_nodedocumentfragmentnormalize2.xml
-TEST FAILED: The assertion (NULL DOMTEST-TESTS::|txtNode|) failed.
 675/808 hc_notationsremovenameditemns1.xml
 676/808 hc_notationssetnameditemns1.xml
 677/808 importNode01.xml
@@ -865,4 +864,4 @@ implementationAttribute expandEntityReferences not supported, skipping test
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-11/763 tests failed; 45 tests were skipped
\ No newline at end of file
+10/763 tests failed; 45 tests were skipped
\ No newline at end of file
diff --git a/dom/dom-impl.lisp b/dom/dom-impl.lisp
index abd85c3..9148f58 100644
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@@ -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))))))