[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp

[David Lichteblau]

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))