[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-serv9777/dom

Modified Files:
	dom-impl.lisp 
Log Message:
tolles OO ist das.

 747/808 nodehasattributes02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:HAS-ATTRIBUTES (1)>
-             when called with arguments
-               (#<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}>).

Date: Sun Dec 11 20:38:10 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.25 cxml/dom/dom-impl.lisp:1.26
--- cxml/dom/dom-impl.lisp:1.25	Sun Dec 11 20:35:05 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 20:38:10 2005
@@ -448,6 +448,9 @@
 
 ;;; Node
 
+(defmethod dom:has-attributes ((element node))
+  nil)
+
 (defmethod dom:is-supported ((node node) feature version)
   (dom:has-feature 'implementation feature version))