Commit 97cc387d authored by david's avatar david

Revision: cxml--devel--1.0--patch-52

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Thu Feb  5 16:44:38 CET 2004
Standard-date: 2004-02-05 15:44:38 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-52
Summary: fixed patch-36, my (setf dom:data) implementation my bogus

fixed patch-36, my (setf dom:data) implementation my bogus
parent 837ba0f5
......@@ -448,7 +448,7 @@
(defmethod (setf dom:data) (newval (self character-data))
(assert-writeable self)
(setf newval (rod newval))
(setf (slot-value newval 'value) newval))
(setf (slot-value self 'value) newval))
(defmethod dom:length ((node character-data))
(length (slot-value node 'value)))
......
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