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

Modified Files:
	dom-impl.lisp 
Log Message:
 639/808 getElementById01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)>
-             when called with arguments
-               (NIL).

Date: Sun Dec 11 19:43:46 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.21 cxml/dom/dom-impl.lisp:1.22
--- cxml/dom/dom-impl.lisp:1.21	Sun Dec 11 19:17:31 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 19:43:45 2005
@@ -425,9 +425,9 @@
   (get-elements-by-tag-name-internal-ns document uri lname))
 
 (defmethod dom:get-element-by-id ((document document) id)
-  (block nil
+  (block t
     (unless (dtd document)
-      (return nil))
+      (return-from t nil))
     (setf id (%rod id))
     (labels ((walk (n)
 	       (dovector (c (dom:child-nodes n))
@@ -441,7 +441,7 @@
 			   (let* ((name (rod (cxml::attdef-name a)))
 				  (value (dom:get-attribute c name)))
 			     (when (and value (rod= value id))
-			       (return c)))))))
+			       (return-from t c)))))))
 		   (walk c)))))
       (walk document))))