Commit 45b9164c authored by david's avatar david

Revision: cxml--devel--1.0--patch-50

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Thu Feb  5 16:26:14 CET 2004
Standard-date: 2004-02-05 15:26:14 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-50
Summary: patch-46 nachgebessert: offset == length ist OK

patch-46 nachgebessert: offset == length ist OK
parent ccdd7183
......@@ -466,7 +466,7 @@
(defmethod dom:delete-data ((node character-data) offset count)
(assert-writeable node)
(with-slots (value) node
(unless (< -1 offset (length value))
(unless (<= 0 offset (length value))
(dom-error :INDEX_SIZE_ERR "offset is invalid"))
(when (minusp count)
(dom-error :INDEX_SIZE_ERR "count is negative"))
......@@ -488,7 +488,7 @@
(assert-writeable node)
(setf arg (rod arg))
(with-slots (value) node
(unless (< -1 offset (length value))
(unless (<= 0 offset (length value))
(dom-error :INDEX_SIZE_ERR "offset is invalid"))
(when (minusp count)
(dom-error :INDEX_SIZE_ERR "count is negative"))
......
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