Commit e466b2b3 authored by david's avatar david

Revision: cxml--devel--1.0--patch-6

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Fri Jan  9 18:33:59 CET 2004
Standard-date: 2004-01-09 17:33:59 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-6
Summary: fixed dom:remove-child
Keywords:

dom:remove-child:
Don't remove the child from itself, remove it from its parent. :)
parent f2d9273b
......@@ -241,7 +241,7 @@
old-child))
(defmethod dom:remove-child ((node node) (old-child node))
(with-slots (children) old-child
(with-slots (children) 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