Changeset 13469


Ignore:
Timestamp:
08/12/11 19:12:24 (10 years ago)
Author:
ehuelsmann
Message:

Remove duplicate information and the need to keep it up to date.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r13466 r13469  
    13481348   (setf g (symbol-name (gensym "LFUN")))
    13491349   (let ((class-name (abcl-class-file-class-name
    1350                       (local-function-class-file local-function))))
     1350                      (compiland-class-file
     1351                       (local-function-compiland local-function)))))
    13511352     (with-code-to-method
    13521353         (*class-file* (abcl-class-file-constructor *class-file*))
     
    40554056  (let* ((compiland (local-function-compiland local-function)))
    40564057    (cond (*file-compilation*
    4057            (compile-and-write-to-stream compiland)
    4058            (setf (local-function-class-file local-function)
    4059                  (compiland-class-file compiland)))
     4058           (compile-and-write-to-stream compiland))
    40604059          (t
    40614060           (with-open-stream (stream (sys::%make-byte-array-output-stream))
    40624061             (compile-and-write-to-stream compiland stream)
    4063              (setf (local-function-class-file local-function)
    4064                    (compiland-class-file compiland))
    40654062             (let ((bytes (sys::%get-output-stream-bytes stream)))
    40664063               (sys::put-memory-function *memory-class-loader*
     
    40894086    (cond (*file-compilation*
    40904087           (compile-and-write-to-stream compiland)
    4091            (setf (local-function-class-file local-function)
    4092                  (compiland-class-file compiland))
    40934088           (let ((g (declare-local-function local-function)))
    40944089             (emit-make-compiled-closure-for-labels
     
    40974092           (with-open-stream (stream (sys::%make-byte-array-output-stream))
    40984093             (compile-and-write-to-stream compiland stream)
    4099              (setf (local-function-class-file local-function)
    4100                    (compiland-class-file compiland))
    41014094             (let* ((bytes (sys::%get-output-stream-bytes stream))
    41024095                    (g (declare-local-function local-function)))
     
    41544147         (emit-getstatic *this-class*
    41554148                         (declare-local-function
    4156                           (make-local-function
    4157                            :class-file (compiland-class-file compiland)))
     4149                          (make-local-function :compiland compiland))
    41584150                         +lisp-object+))
    41594151        (t
  • trunk/abcl/src/org/armedbear/lisp/jvm.lisp

    r13466 r13469  
    381381  compiland
    382382  inline-expansion
    383   class-file  ;; the class file structure for this function
    384383  variable    ;; the variable which contains the loaded compiled function
    385384              ;; or compiled closure
Note: See TracChangeset for help on using the changeset viewer.