Commit 6e091f3c authored by david's avatar david

Revision: cxml--devel--1.0--patch-32

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Tue Feb  3 23:56:06 CET 2004
Standard-date: 2004-02-03 22:56:06 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-32
Summary: s/data/value/ fuer CHARACTER-DATA
Keywords:

Der Slot fuer DOM:CHARACTER-DATA wurde ueberall VALUE genannt, hiess aber
DATA.  Habe ihn jetzt einfach mal in VALUE umbenannt.

Meine Implementation von NORMALIZE entsprechend korrigiert.
parent 3e071578
......@@ -18,7 +18,7 @@
())
(defclass character-data (node)
((data :initarg :data :reader dom:data)))
((value :initarg :data :reader dom:data)))
(defclass attribute (node)
((name :initarg :name :reader dom:name)
......@@ -481,7 +481,7 @@
((not (dom:text-node-p child))
(setf previous nil))
((and previous (dom:text-node-p previous))
(setf (slot-value previous 'data)
(setf (slot-value previous 'value)
(concatenate 'vector
(dom:data previous)
(dom:data child)))
......
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