Commit 7b1bfd46 authored by david's avatar david

Revision: cxml--devel--1.0--patch-62

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Thu Feb  5 23:52:21 CET 2004
Standard-date: 2004-02-05 22:52:21 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-62
Summary: <member> in <var> verstehen

<member> in <var> verstehen
parent 2aa9cf2e
......@@ -474,7 +474,16 @@
(string-case (dom:get-attribute e "type")
(("byte" "short" "int" "long") 0)
(t nil)))
bindings))
bindings)
(do-child-elements (member e :name "member") e
(push `(setf ,(%intern (dom:get-attribute e "name"))
(append ,(%intern (dom:get-attribute e "name"))
(list
,(parse-java-literal
(dom:data
(car
(dom:child-nodes member)))))))
code)))
("implementationAttribute"
(assert-have-implementation-attribute e))
(t
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment