358 |
(when fasl-file |
(when fasl-file |
359 |
(compiler-build ob-pathname fasl-pathname) |
(compiler-build ob-pathname fasl-pathname) |
360 |
(when load (load fasl-pathname))) |
(when load (load fasl-pathname))) |
361 |
(unless ob-file (delete-file ob-pathname)) |
(unless (or *keep-gaz* ob-file) (delete-file ob-pathname)) |
362 |
(when *compile-verbose* |
(when *compile-verbose* |
363 |
(print-compiler-info) |
(print-compiler-info) |
364 |
(format t "~&;; Finished compiling ~a.~%" (namestring output-file)) |
(format t "~&;; Finished compiling ~a.~%" (namestring output-file)) |