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

Add empty lines around messages at the beginning of COMPILE-FILE, also at the end, and after a note from SAFE-SYSTEM.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-19 17:24:04 +01:00
parent 21057b19bd
commit d47c766a13
2 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cmp/cmpmain.lsp
View file

@ -27,7 +27,7 @@ Make sure you have enough free space in disk, check permissions or set~%~
the environment variable TMPDIR to a different value." template)))
(defun safe-system (string)
(cmpnote "Invoking external command:~% ~A" string)
(cmpnote "Invoking external command:~% ~A~%" string)
(let ((result (si:system string)))
(unless (zerop result)
(cerror "Continues anyway."
@ -585,7 +585,7 @@ compiled successfully, returns the pathname of the compiled file"
(when (and system-p load)
(error "Cannot load system files."))
(cmpprogress "~&;;; Compiling ~a." (namestring input-pathname))
(cmpprogress "~&;;;~%;;; Compiling ~a." (namestring input-pathname))
(let* ((eof '(NIL))
(*compiler-in-use* *compiler-in-use*)
@ -655,7 +655,8 @@ compiled successfully, returns the pathname of the compiled file"
(si::coerce-to-filename o-pathname))))
(if (setf true-output-file (probe-file output-file))
(cmpprogress "~&;;; Finished compiling ~a.~%" (namestring input-pathname))
(cmpprogress "~&;;; Finished compiling ~a.~%;;;~%"
(namestring input-pathname))
(cmperr "The C compiler failed to compile the intermediate file."))
(mapc #'cmp-delete-file to-delete)
@ -912,7 +913,7 @@ from the C language code. NIL means \"do not create the file\"."
))
(defun print-compiler-info ()
(cmpprogress "~&;;; OPTIMIZE levels: Safety=~d, Space=~d, Speed=~d, Debug=~d~%"
(cmpprogress "~&;;; OPTIMIZE levels: Safety=~d, Space=~d, Speed=~d, Debug=~d~%;;;~%"
*safety* *space* *speed* *debug*))
(defmacro with-compilation-unit (options &rest body)

7
src/new-cmp/cmpmain.lsp
View file

@ -497,7 +497,7 @@ compiled successfully, returns the pathname of the compiled file"
(when (and system-p load)
(error "Cannot load system files."))
(cmpprogress "~&;;; Compiling ~a." (namestring input-pathname))
(cmpprogress "~&;;;~%;;; Compiling ~a." (namestring input-pathname))
(let* ((eof '(NIL))
(*compiler-in-use* *compiler-in-use*)
@ -569,7 +569,8 @@ compiled successfully, returns the pathname of the compiled file"
(si::coerce-to-filename o-pathname))))
(if (setf true-output-file (probe-file output-file))
(cmpprogress "~&;;; Finished compiling ~a.~%" (namestring input-pathname))
(cmpprogress "~&;;; Finished compiling ~a.~%;;;~%"
(namestring input-pathname))
(cmperr "The C compiler failed to compile the intermediate file."))
(mapc #'cmp-delete-file to-delete)
@ -829,7 +830,7 @@ from the C language code. NIL means \"do not create the file\"."
))
(defun print-compiler-info ()
(cmpprogress "~&;;; OPTIMIZE levels: Safety=~d, Space=~d, Speed=~d, Debug=~d~%"
(cmpprogress "~&;;; OPTIMIZE levels: Safety=~d, Space=~d, Speed=~d, Debug=~d~%;;;~%"
*safety* *space* *speed* *debug*))
(defmacro with-compilation-unit (options &rest body)