[cxml-cvs] CVS cxml/dom

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/dom
In directory clnet:/tmp/cvs-serv3686/dom

Modified Files:
	dom-impl.lisp 
Log Message:
ANSI conformance fixes


--- /project/cxml/cvsroot/cxml/dom/dom-impl.lisp	2006/08/28 09:04:51	1.41
+++ /project/cxml/cvsroot/cxml/dom/dom-impl.lisp	2006/09/10 14:52:44	1.42
@@ -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: