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"))