OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ANSI conformance fixes

Browse Source
This commit is contained in:
dlichteblau
2006-09-10 14:52:44 +00:00
parent 9126b20cae
commit 70fd8ddd7d
2 changed files with 21 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
dom/dom-impl.lisp
View File

@ -587,9 +587,11 @@
(setf (slot-value new-child 'parent) node)
new-child))
(defmethod dom:insert-before ((node node) (fragment document-fragment) ref-child)
(dovector (child (dom:child-nodes fragment))
(dom:insert-before node child ref-child))
(defmethod dom:insert-before
((node node) (fragment document-fragment) ref-child)
(let ((children (dom:child-nodes fragment)))
(cxml::while (plusp (length children))
(dom:insert-before node (elt children 0) ref-child)))
fragment)
(defmethod dom:replace-child ((node node) (new-child node) (old-child node))
@ -631,8 +633,9 @@
(defmethod dom:append-child ((node node) (new-child document-fragment))
(assert-writeable node)
(dovector (child (dom:child-nodes new-child))
(dom:append-child node child))
(let ((children (dom:child-nodes new-child)))
(cxml::while (plusp (length children))
(dom:append-child node (elt children 0))))
new-child)
;; was auf node noch implemetiert werden muss: