noch ne runde dom-fixes

2005-12-04 21:15:35 +00:00
parent 8223cd02d4
commit a8d0f330a0
4 changed files with 28 additions and 141 deletions
--- a/test/domtest.lisp
+++ b/test/domtest.lisp
@ -595,6 +595,11 @@
                          (("byte" "short" "int" "long") 0)
                          (t nil)))
                  bindings)
+	    (let ((value (dom:get-attribute e "value")))
+	      (when value
+		(push `(setf ,(%intern (dom:get-attribute e "name"))
+			     ,(parse-java-literal value))
+		      code)))
            (do-child-elements (member e :name "member") e
              (push `(setf ,(%intern (dom:get-attribute e "name"))
                           (append ,(%intern (dom:get-attribute e "name"))