Changeset 11464


Ignore:
Timestamp:
12/21/08 17:13:27 (13 years ago)
Author:
vvoutilainen
Message:

Rename do-write-class-file to compile-and-write-to-file.

File:
1 edited

Legend:

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

    r11463 r11464  
    48394839    (emit-move-from-stack target)))
    48404840
    4841 (defun do-write-class-file (class-file compiland)
     4841(defun compile-and-write-to-file (class-file compiland)
    48424842  (with-class-file class-file
    48434843    (let ((*current-compiland* compiland))
     
    48484848(defun set-compiland-and-write-class-file (class-file compiland)
    48494849  (setf (compiland-class-file compiland) class-file)
    4850   (do-write-class-file class-file compiland))
     4850  (compile-and-write-to-file class-file compiland))
    48514851
    48524852(defknown p2-flet-process-compiland (t) t)
     
    50165016                                  :lambda-list lambda-list))
    50175017           (let ((class-file (compiland-class-file compiland)))
    5018        (do-write-class-file class-file compiland)
     5018       (compile-and-write-to-file class-file compiland)
    50195019             (emit 'getstatic *this-class*
    50205020                   (declare-local-function (make-local-function :class-file class-file))
     
    50275027             (unwind-protect
    50285028                 (progn
    5029        (do-write-class-file (compiland-class-file compiland) compiland)
     5029       (compile-and-write-to-file (compiland-class-file compiland) compiland)
    50305030                   (emit 'getstatic *this-class*
    50315031                         (declare-object (load-compiled-function pathname))
Note: See TracChangeset for help on using the changeset viewer.