From 6101105d6fc56cc9c75d074ccd6c2c9d675fd3ed Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 11 Dec 2005 19:38:09 +0000
Subject: [PATCH] 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}>).
---
 DOMTEST           | 6 +-----
 dom/dom-impl.lisp | 3 +++
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/DOMTEST b/DOMTEST
index 7c53197..8dc022c 100644
--- a/DOMTEST
+++ b/DOMTEST
@@ -780,10 +780,6 @@ not implemented
 745/808 nodegetprefix03.xml
 746/808 nodehasattributes01.xml
 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}>).
 748/808 nodehasattributes03.xml
 749/808 nodehasattributes04.xml
 750/808 nodeissupported01.xml
@@ -858,4 +854,4 @@ implementationAttribute expandEntityReferences not supported, skipping test
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-7/763 tests failed; 45 tests were skipped
\ No newline at end of file
+6/763 tests failed; 45 tests were skipped
\ No newline at end of file
diff --git a/dom/dom-impl.lisp b/dom/dom-impl.lisp
index cabe6e2..cfbc88a 100644
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@@ -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))