mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-09 18:52:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Some newline characters make output more readable.

Browse source
This commit is contained in:
jjgarcia 2003-11-13 08:39:23 +00:00
parent edc0ac77b2
commit 3f30e465fe
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpmain.lsp
View file

@ -395,18 +395,18 @@ Cannot compile ~a."
(when load (load so-pathname))
(when *compile-verbose*
(print-compiler-info)
(format t "~&;;; Finished compiling ~a."
(format t "~&;;; Finished compiling ~a.~%"
(namestring input-pathname))))
((and system-p (probe-file o-pathname))
(when *compile-verbose*
(print-compiler-info)
(format t "~&;;; Finished compiling ~a."
(format t "~&;;; Finished compiling ~a.~%"
(namestring input-pathname))))
(t (format t "~&;;; The C compiler failed to compile the intermediate file.~%")
(setq *error-p* t))))
(*compile-verbose*
(print-compiler-info)
(format t "~&;;; Finished compiling ~a."
(format t "~&;;; Finished compiling ~a.~%"
(namestring input-pathname))))
(unless c-file (delete-file c-pathname))
(unless h-file (delete-file h-pathname))