[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-serv9723/dom
Modified Files:
    dom-impl.lisp 
Log Message:
 694/808 internalSubset01.xml
-TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed.
Date: Sun Dec 11 20:35:06 2005
Author: dlichteblau
Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.24 cxml/dom/dom-impl.lisp:1.25

--- cxml/dom/dom-impl.lisp:1.24	Sun Dec 11 20:28:00 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 20:35:05 2005
@@ -1150,7 +1150,11 @@
(defmethod dom:internal-subset ((node document-type))
   ;; FIXME: encoding ist falsch, anderen sink nehmen!
-  (if (slot-boundp node 'internal-subset)
+  (if (and (slot-boundp node 'internal-subset)
+	   ;; die damen und herren von der test suite sind wohl der meinung,
+	   ;; dass ein leeres internal subset nicht vorhanden ist und
+	   ;; wir daher nil liefern sollen.  bittesehr!
+	   (internal-subset node))
       (with-output-to-string (stream)
    (let ((sink (cxml:make-character-stream-sink stream)))
      (dolist (def (internal-subset node))

    