[cxml-cvs] CVS update: cxml/test/domtest.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv2250/test

Modified Files:
	domtest.lisp 
Log Message:
noch ne runde dom-fixes

Date: Sun Dec  4 22:15:37 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.8 cxml/test/domtest.lisp:1.9
--- cxml/test/domtest.lisp:1.8	Sun Dec  4 21:35:17 2005
+++ cxml/test/domtest.lisp	Sun Dec  4 22:15:37 2005
@@ -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"))