Commit cc9b7803 authored by david's avatar david

Revision: cxml--devel--1.0--patch-37

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Wed Feb  4 17:29:42 CET 2004
Standard-date: 2004-02-04 16:29:42 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-37
Summary: (setf dom:node-value) implementiert

(setf dom:node-value) implementiert
parent 6ab3961a
......@@ -344,6 +344,15 @@
(defmethod dom:node-value ((self entity-reference)) nil)
(defmethod dom:node-value ((self processing-instruction)) (dom:data self))
(defmethod (setf dom:node-value) (newval (self character-data))
(setf (dom:data self) newval))
(defmethod (setf dom:node-value) (newval (self attribute))
(setf (dom:value self) newval))
(defmethod (setf dom:node-value) (newval (self processing-instruction))
(setf (dom:data self) newval))
;; attributes
;; (gibt es nur auf element)
......
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