From 3beb48038b2882db80e0c3b326ef456819bdc3b6 Mon Sep 17 00:00:00 2001 From: david Date: Sun, 13 Mar 2005 18:02:21 +0000 Subject: [PATCH] Revision: cxml--devel--1.0--patch-96 Archive: david@knowledgetools.de--cxml Creator: David Lichteblau Date: Mon Feb 9 17:07:45 CET 2004 Standard-date: 2004-02-09 16:07:45 GMT Modified-files: xml/dom-impl.lisp New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-96 Summary: normalize korrigiert: cdata-section nicht beruehren normalize korrigiert: cdata-section nicht beruehren --- xml/dom-impl.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/xml/dom-impl.lisp b/xml/dom-impl.lisp index 974f96f..1416416 100644 --- a/xml/dom-impl.lisp +++ b/xml/dom-impl.lisp @@ -628,9 +628,9 @@ (let ((previous nil)) (dolist (child (dom:child-nodes n)) (cond - ((not (dom:text-node-p child)) + ((not (eq (dom:node-type child) :text)) (setf previous nil)) - ((and previous (dom:text-node-p previous)) + ((and previous (eq (dom:node-type previous) :text)) (setf (slot-value previous 'value) (concatenate 'vector (dom:data previous) -- GitLab