Changes between Version 1 and Version 2 of UsingClassWriter


Ignore:
Timestamp:
12/01/10 06:03:02 (11 years ago)
Author:
Mark Evenson
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • UsingClassWriter

    v1 v2  
    44
    55{{{
    6 (let* ((class-name (make-jvm-class-name "org/not/Foo"))
    7        (class (make-class-file class-name +java-object+ '(:public :interface)))
    8        (method (make-jvm-method "callback" :int '(:int) :flags
     6(let* ((class-name (jvm::make-jvm-class-name "org/not/Foo"))
     7       (class (jvm::make-class-file class-name +java-object+ '(:public :interface)))
     8       (method (jvm::make-jvm-method "callback" :int '(:int) :flags
    99                                '(:public :abstract))))
    10   (class-add-method class method)
    11   (finalize-class-file class)
     10  (jvm::class-add-method class method)
     11  (jvm::finalize-class-file class)
    1212  (with-open-file (s #p"Foo.class" :direction :output
    1313                     :if-exists :supersede :element-type '(unsigned-byte 8))
    14     (write-class-file class s)))
     14    (jvm::write-class-file class s)))
    1515 }}}