Commit d671e332 authored by david's avatar david

Revision: cxml--devel--1.0--patch-51

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Thu Feb  5 16:41:46 CET 2004
Standard-date: 2004-02-05 15:41:46 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-51
Summary: fixed special cases in dom:substring-data

fixed special cases in dom:substring-data
parent 45b9164c
......@@ -454,7 +454,11 @@
(length (slot-value node 'value)))
(defmethod dom:substring-data ((node character-data) offset count)
(subseq (slot-value node 'value) offset (+ offset count)))
(with-slots (value) node
(unless (<= 0 offset (length value))
(dom-error :INDEX_SIZE_ERR "offset is invalid"))
(let ((end (min (length value) (+ offset count))))
(subseq value offset end))))
(defmethod dom:append-data ((node character-data) arg)
(assert-writeable node)
......
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