Commit af2e969a authored by david's avatar david

Revision: cxml--devel--1.0--patch-101

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 17:39:08 CET 2004
Standard-date: 2004-02-09 16:39:08 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-101
Summary: (setf dom:data) fuer PI korrigiert

(setf dom:data) fuer PI korrigiert
parent 3beb4803
......@@ -681,7 +681,7 @@
(defmethod (setf dom:data) (newval (self processing-instruction))
(assert-writeable self)
(setf newval (rod newval))
(setf (slot-value newval 'data) newval))
(setf (slot-value self 'data) newval))
;; das koennte man auch mit einer GF machen
(defun can-adopt-p (parent 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