[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp - cxml-cvs@common-lisp.net - mailman3.common-lisp.net

11 Dec 2005

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv12188/dom
Modified Files:
    dom-impl.lisp 
Log Message:
 687/808 importNode11.xml
-TEST FAILED: NOT_SUPPORTED_ERR (9):
-not implemented
Date: Sun Dec 11 21:07:45 2005
Author: dlichteblau
Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.29 cxml/dom/dom-impl.lisp:1.30

--- cxml/dom/dom-impl.lisp:1.29	Sun Dec 11 21:04:06 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 21:07:45 2005
@@ -1344,12 +1344,8 @@
(defmethod dom:import-node ((document document) (node entity-reference) deep)
   (declare (ignore deep))
-  #+(or)
   (import-node-internal 'entity-reference document node nil
-                        :name (dom:name node))
-  ;; XXX If the document being imported into provides a definition for
-  ;; this entity name, its value is assigned.
-  (dom-error :NOT_SUPPORTED_ERR "not implemented"))
+                        :name (dom:name node)))
(defmethod dom:import-node ((document document) (node notation) deep)
   (import-node-internal 'notation document node deep

    