Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv4890/dom
Modified Files: dom-impl.lisp Log Message: (import-node attribute)
Date: Sun Dec 4 22:44:07 2005 Author: dlichteblau
Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.10 cxml/dom/dom-impl.lisp:1.11 --- cxml/dom/dom-impl.lisp:1.10 Sun Dec 4 22:41:13 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 22:44:06 2005 @@ -1238,7 +1238,11 @@
(defmethod dom:import-node ((document document) (node attribute) deep) (declare (ignore deep)) - (import-node-internal 'attribute document node t :name (dom:name node))) + (import-node-internal 'attribute + document node + t + :name (dom:name node) + :owner-element nil))
(defmethod dom:import-node ((document document) (node document-fragment) deep) (import-node-internal 'document-fragment document node deep))