Changeset 12761


Ignore:
Timestamp:
06/21/10 20:42:53 (13 years ago)
Author:
ehuelsmann
Message:

Fix compilation of toplevel MACROLET forms.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r12749 r12761  
    177177                                            (continue))))
    178178                                    (report-error
    179                                      (jvm:compile-defun name expr nil
     179                                     (jvm:compile-defun name expr *compile-file-environment*
    180180                                                        classfile f nil)))))
    181181                        (compiled-function (if (not internal-compiler-errors)
    … …  
    254254          :if-exists :supersede)
    255255     (ignore-errors
    256        (jvm:compile-defun nil expr nil classfile f nil)))
     256       (jvm:compile-defun nil expr *compile-file-environment*
     257                                      classfile f nil)))
    257258               (if (null (verify-load classfile))
    258259                   ;; FIXME error or warning
    … …  
    397398       :if-exists :supersede)
    398399        (report-error
    399          (jvm:compile-defun nil lambda-expression nil classfile f nil))))
     400         (jvm:compile-defun nil lambda-expression
     401                                        *compile-file-environment*
     402                                        classfile f nil))))
    400403                 (compiled-function (verify-load classfile)))
    401404      (declare (ignore result))
    … …  
    444447     :element-type '(unsigned-byte 8)
    445448     :if-exists :supersede)
    446       (report-error (jvm:compile-defun nil expr nil classfile
    447                                              f declare-inline))))
     449      (report-error (jvm:compile-defun nil expr *compile-file-environment*
     450                                             classfile f declare-inline))))
    448451         (compiled-function (verify-load classfile)))
    449452    (declare (ignore result))
    … …  
    704707       :element-type '(unsigned-byte 8)
    705708       :if-exists :supersede)
    706         (jvm:compile-defun nil expr nil
     709        (jvm:compile-defun nil expr *compile-file-environment*
    707710         classfile f nil))))))
    708711
Note: See TracChangeset for help on using the changeset viewer.