Changeset 12764
- Timestamp:
- 06/21/10 21:58:29 (13 years ago)
- Location:
- branches/generic-class-file/abcl/src/org/armedbear/lisp
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/generic-class-file/abcl/src/org/armedbear/lisp/compile-system.lisp
r12624 r12764 98 98 (load (do-compile "compiler-pass1.lisp")) 99 99 (load (do-compile "compiler-pass2.lisp")) 100 (load (do-compile "jvm-class-file.lisp")) 100 101 (load (do-compile "jvm.lisp")) 101 102 (load (do-compile "source-transform.lisp")) -
branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r12749 r12764 1752 1752 descriptor-index) 1753 1753 1754 (defstruct (java-method (:conc-name method-) (:constructor %make-method)) 1755 access-flags 1756 name 1757 descriptor 1754 (defstruct (java-method (:include method) 1755 (:conc-name method-) 1756 (:constructor %make-method)) 1758 1757 name-index 1759 1758 descriptor-index … … 4906 4905 `(let* ((,pathname (make-temp-file)) 4907 4906 (,class-file (make-class-file :pathname ,pathname 4908 4907 :lambda-list ,lambda-list))) 4909 4908 (unwind-protect 4910 4909 (progn ,@body) -
branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm.lisp
r12690 r12764 46 46 (require "DUMP-FORM") 47 47 (require "OPCODES") 48 (require "JVM-CLASS-FILE") 48 49 (require "JAVA") 49 50 (require "COMPILER-PASS1") … … 86 87 (defvar *declared-functions* nil) 87 88 88 (defstruct (abcl-class-file (:constructor %make-abcl-class-file)) 89 (defstruct (abcl-class-file (:include class-file) 90 (:constructor %make-abcl-class-file)) 89 91 pathname ; pathname of output file 90 92 lambda-name 91 class92 superclass93 93 lambda-list ; as advertised 94 94 pool 95 95 (pool-count 1) 96 96 (pool-entries (make-hash-table :test #'equal)) 97 fields98 methods99 97 static-code 100 98 objects ;; an alist of externalized objects and their field names
Note: See TracChangeset
for help on using the changeset viewer.