Commit af2e969a authored by david's avatar david

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

Creator: David Lichteblau <>
Date: Mon Feb  9 17:39:08 CET 2004
Standard-date: 2004-02-09 16:39:08 GMT
Modified-files: xml/dom-impl.lisp
Summary: (setf dom:data) fuer PI korrigiert

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