115 |
((> (file-position *compiler-input*) |
((> (file-position *compiler-input*) |
116 |
(car *split-files*)) |
(car *split-files*)) |
117 |
(setf (third *split-files*)(file-position *compiler-input*))))) |
(setf (third *split-files*)(file-position *compiler-input*))))) |
118 |
|
|
119 |
|
(defvar *lsp-ext* (make-pathname :type "lsp")) |
120 |
|
|
121 |
(defun compile-file (&rest args |
(defun compile-file (&rest args |
122 |
&aux (*print-pretty* nil) |
&aux (*print-pretty* nil) |
133 |
(*PRINT-ESCAPE* T) |
(*PRINT-ESCAPE* T) |
134 |
(section-length *split-files*) |
(section-length *split-files*) |
135 |
tem |
tem |
136 |
(*compile-file-pathname* (merge-pathnames (car args))) |
(*compile-file-pathname* (merge-pathnames *lsp-ext* (car args))) |
137 |
(*compile-file-truename* (truename *compile-file-pathname*))) |
(*compile-file-truename* (truename *compile-file-pathname*))) |
138 |
(loop |
(loop |
139 |
(compiler::init-env) |
(compiler::init-env) |