[closure-cvs] CVS update: cxml/dom/dom-impl.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv9430/dom

Modified Files:
	dom-impl.lisp 
Log Message:
- Moved utility functions from the "runes" package to the "cxml" package to
  avoid name conflicts with functions from "glisp" of the same name.
- Renamed defsubst to definline for the same reason.

(This is a commit to the cxml repository, not the main closure repository.
If you don't want cxml commit messages on the closure list, please complain
to me and I'll change it.)

Date: Fri Mar 25 19:16:42 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.1.1.13 cxml/dom/dom-impl.lisp:1.2
--- cxml/dom/dom-impl.lisp:1.1.1.13	Sun Mar 13 19:02:51 2005
+++ cxml/dom/dom-impl.lisp	Fri Mar 25 19:16:30 2005
@@ -698,7 +698,7 @@
     (with-slots (children owner) node
       ;; remove children, add new TEXT-NODE child
       ;; (alas, we must not reuse an old TEXT-NODE)
-      (while (plusp (length children))
+      (cxml::while (plusp (length children))
         (dom:remove-child node (dom:last-child node)))
       (dom:append-child node (dom:create-text-node owner rod))))
   new-value)
@@ -819,7 +819,7 @@
                    (i 0)
                    (previous nil))
                ;; careful here, we're modifying the array we are iterating over
-               (while (< i (length children))
+               (cxml::while (< i (length children))
                  (let ((child (elt children i)))
                    (cond
                      ((not (eq (dom:node-type child) :text))