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) (setf (slot-value new-child 'parent) node)
new-child)) new-child))
(defmethod dom:insert-before ((node node) (fragment document-fragment) ref-child) (defmethod dom:insert-before
(dovector (child (dom:child-nodes fragment)) ((node node) (fragment document-fragment) ref-child)
(dom:insert-before node child ref-child)) (let ((children (dom:child-nodes fragment)))
(cxml::while (plusp (length children))
(dom:insert-before node (elt children 0) ref-child)))
fragment) fragment)
(defmethod dom:replace-child ((node node) (new-child node) (old-child node)) (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)) (defmethod dom:append-child ((node node) (new-child document-fragment))
(assert-writeable node) (assert-writeable node)
(dovector (child (dom:child-nodes new-child)) (let ((children (dom:child-nodes new-child)))
(dom:append-child node child)) (cxml::while (plusp (length children))
(dom:append-child node (elt children 0))))
new-child) new-child)
;; was auf node noch implemetiert werden muss: ;; was auf node noch implemetiert werden muss:

22
xml/xml-name-rune-p.lisp
View File

@ -105,15 +105,19 @@
(declare (type simple-vector range-vector)) (declare (type simple-vector range-vector))
;;we were always dealing with a sorted vector... bin search it ;;we were always dealing with a sorted vector... bin search it
(loop with start = 0 (let ((start 0)
with end = (length range-vector) (end (length range-vector)))
while (< start end) (while (< start end)
for mid-index = (+ start (floor (- end start) 2)) (let ((mid-index (+ start (floor (- end start) 2))))
for (mid-item-low mid-item-high) = (aref range-vector mid-index) (destructuring-bind (mid-item-low mid-item-high)
if (< mid-item-high code) do (setf start (1+ mid-index)) (aref range-vector mid-index)
else if (< code mid-item-low) do (setf end mid-index) (cond
else do (return T) ((< mid-item-high code)
finally (return nil))) (setf start (1+ mid-index)))
((< code mid-item-low)
(setf end mid-index))
(t
(return t))))))))
(name-start-rune-p (rune) (name-start-rune-p (rune)
(or (letter-rune-p rune) (or (letter-rune-p rune)