Ignore:
Timestamp:
01/10/12 23:07:58 (9 years ago)
Author:
astalla
Message:

[jvm-class-file]
Coalesce annotation-element and annotation-element-value into a single struct for simplicity.
Array- and annotation-valued elements.
Small refactor of annotation finalizers and writers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/runtime-class.lisp

    r13739 r13755  
    144144                 :annotations (list (make-annotation :type "java.lang.Deprecated")
    145145                                    (make-annotation :type "java.lang.annotation.Retention"
    146                                                      :elements (list (make-annotation-element
    147                                                                       :value (make-enum-value-annotation-element-value
    148                                                                               :type "java.lang.annotation.RetentionPolicy"
    149                                                                               :name "RUNTIME"))))
     146                                                     :elements (list (make-enum-value-annotation-element
     147                                                                      :type "java.lang.annotation.RetentionPolicy"
     148                                                                      :value "RUNTIME")))
    150149                                    (make-annotation :type "javax.xml.bind.annotation.XmlAttribute"
    151                                                      :elements (list (make-annotation-element
     150                                                     :elements (list (make-primitive-or-string-annotation-element
    152151                                                                      :name "required"
    153                                                                       :value (make-primitive-or-string-annotation-element-value :value t))))))
     152                                                                      :value t)))))
    154153           (list "bar" :int '("java.lang.Object")
    155154                 (lambda (this that) (print (list this that)) 23))))
Note: See TracChangeset for help on using the changeset viewer.