Changeset 12761
- Timestamp:
- 06/21/10 20:42:53 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r12749 r12761 177 177 (continue)))) 178 178 (report-error 179 (jvm:compile-defun name expr nil179 (jvm:compile-defun name expr *compile-file-environment* 180 180 classfile f nil))))) 181 181 (compiled-function (if (not internal-compiler-errors) … … 254 254 :if-exists :supersede) 255 255 (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))) 257 258 (if (null (verify-load classfile)) 258 259 ;; FIXME error or warning … … 397 398 :if-exists :supersede) 398 399 (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)))) 400 403 (compiled-function (verify-load classfile))) 401 404 (declare (ignore result)) … … 444 447 :element-type '(unsigned-byte 8) 445 448 :if-exists :supersede) 446 (report-error (jvm:compile-defun nil expr nil classfile447 f declare-inline))))449 (report-error (jvm:compile-defun nil expr *compile-file-environment* 450 classfile f declare-inline)))) 448 451 (compiled-function (verify-load classfile))) 449 452 (declare (ignore result)) … … 704 707 :element-type '(unsigned-byte 8) 705 708 :if-exists :supersede) 706 (jvm:compile-defun nil expr nil709 (jvm:compile-defun nil expr *compile-file-environment* 707 710 classfile f nil)))))) 708 711
Note: See TracChangeset
for help on using the changeset viewer.