Changeset 12764 for branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Timestamp:

06/21/10 21:58:29 (13 years ago)

Author:

ehuelsmann

Message:

Work-in-progress commit: saving current state;
no real functional changes.

File:

• branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (2 diffs)

branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -1752 +1752 @@
   descriptor-index)
 
-(defstruct (java-method (:conc-name method-) (:constructor %make-method))
-  access-flags
-  name
-  descriptor
+(defstruct (java-method (:include method)
+                        (:conc-name method-)
+                        (:constructor %make-method))
   name-index
   descriptor-index
@@ -4906 +4905 @@
   `(let* ((,pathname (make-temp-file))
     (,class-file (make-class-file :pathname ,pathname
-               :lambda-list ,lambda-list)))
+                                             :lambda-list ,lambda-list)))
      (unwind-protect
     (progn ,@body)