Commit 3796872a authored by david's avatar david

Revision: cxml--devel--1.0--patch-102

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 17:40:47 CET 2004
Standard-date: 2004-02-09 16:40:47 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-102
Summary: NOT_FOUND_ERR in REMOVE-CHILD

NOT_FOUND_ERR in REMOVE-CHILD
parent af2e969a
......@@ -298,6 +298,8 @@
(defmethod dom:remove-child ((node node) (old-child node))
(assert-writeable node)
(with-slots (children) node
(unless (find old-child children)
(dom-error :NOT_FOUND_ERR "~A not found in ~A" old-child node))
(setf children (remove old-child children))
(setf (slot-value old-child 'parent) nil)
old-child))
......
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