Changeset 14212
- Timestamp:
- 10/21/12 19:17:45 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r14176 r14212 716 716 (defvar *fasl-stream* nil) 717 717 718 (defvar *debug-compile-from-stream* nil)719 718 (defun compile-from-stream (in output-file temp-file temp-file2 720 719 extract-toplevel-funcs-and-macros … … 729 728 (start (get-internal-real-time)) 730 729 *fasl-uninterned-symbols*) 731 (setf *debug-compile-from-stream*732 (list :in in733 :compile-file-pathname *compile-file-pathname*))734 730 (when *compile-verbose* 735 731 (format t "; Compiling ~A ...~%" namestring)) … … 815 811 (let ((*package* (find-package :keyword))) 816 812 (write *toplevel-exports* :stream e-out))))) 817 (with-open-file (in temp-file :direction :input )813 (with-open-file (in temp-file :direction :input :external-format *fasl-external-format*) 818 814 (with-open-file (out temp-file2 :direction :output 819 815 :if-does-not-exist :create 820 :if-exists :supersede) 816 :if-exists :supersede 817 :external-format *fasl-external-format*) 821 818 (let ((*package* (find-package '#:cl)) 822 819 (*print-fasl* t) … … 876 873 ((:print *compile-print*) *compile-print*) 877 874 (extract-toplevel-funcs-and-macros nil) 878 external-format) 879 (declare (ignore external-format)) ; FIXME 875 (external-format :utf-8)) 880 876 (flet ((pathname-with-type (pathname type &optional suffix) 881 877 (when suffix … … 907 903 (warnings-p nil) 908 904 (failure-p nil)) 909 (with-open-file (in input-file :direction :input )905 (with-open-file (in input-file :direction :input :external-format external-format) 910 906 (compile-from-stream in output-file temp-file temp-file2 911 907 extract-toplevel-funcs-and-macros
Note: See TracChangeset
for help on using the changeset viewer.