Commit 6ab3961a authored by david's avatar david

Revision: cxml--devel--1.0--patch-36

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Wed Feb  4 17:29:05 CET 2004
Standard-date: 2004-02-04 16:29:05 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-36
Summary: writer fuer DOM:DATA

writer fuer DOM:DATA
parent 90a6303d
......@@ -396,6 +396,10 @@
;;; CHARACTER-DATA
(defmethod (setf dom:data) (newval (self character-data))
(setf newval (rod newval))
(setf (slot-value newval 'value) newval))
(defmethod dom:length ((node character-data))
(length (slot-value node 'value)))
......@@ -505,7 +509,12 @@
;;; NOTATION -- nix
;;; ENTITY -- nix
;;; ENTITY-REFERENCE -- nix
;;; PROCESSING-INSTRUCTION -- nix
;;; PROCESSING-INSTRUCTION
(defmethod (setf dom:data) (newval (self processing-instruction))
(setf newval (rod newval))
(setf (slot-value newval 'data) newval))
;; Notbehelf!
(defun can-adopt-p (x y) x y t)
......
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