Commit 3beb4803 authored by david's avatar david

Revision: cxml--devel--1.0--patch-96

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
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
parent 1753f9c3
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment