Changeset 14260
- Timestamp:
- 11/28/12 14:35:49 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r14212 r14260 727 727 (namestring (namestring *compile-file-truename*)) 728 728 (start (get-internal-real-time)) 729 *fasl-uninterned-symbols*) 729 *fasl-uninterned-symbols* 730 (warnings-p nil) 731 (failure-p nil)) 730 732 (when *compile-verbose* 731 733 (format t "; Compiling ~A ...~%" namestring)) … … 865 867 (format t "~&; Wrote ~A (~A seconds)~%" 866 868 (namestring output-file) 867 (/ (- (get-internal-real-time) start) 1000.0)))) ) 869 (/ (- (get-internal-real-time) start) 1000.0))) 870 (values (truename output-file) warnings-p failure-p))) 868 871 869 872 (defun compile-file (input-file … … 900 903 *toplevel-functions* 901 904 *toplevel-macros* 902 *toplevel-exports* 903 (warnings-p nil) 904 (failure-p nil)) 905 *toplevel-exports*) 905 906 (with-open-file (in input-file :direction :input :external-format external-format) 906 (compile-from-stream in output-file temp-file temp-file2 907 extract-toplevel-funcs-and-macros 908 functions-file macros-file exports-file)) 909 (values (truename output-file) warnings-p failure-p)))) 907 (multiple-value-bind (output-file-truename warnings-p failure-p) 908 (compile-from-stream in output-file temp-file temp-file2 909 extract-toplevel-funcs-and-macros 910 functions-file macros-file exports-file) 911 (values (truename output-file) warnings-p failure-p)))))) 910 912 911 913 (defun compile-file-if-needed (input-file &rest allargs &key force-compile
Note: See TracChangeset
for help on using the changeset viewer.