cosmetic: line wrap

This commit is contained in:
Daniel Kochmanski 2017-07-21 19:34:01 +02:00
parent b15afe097c
commit bdd17142fb

View file

@ -699,8 +699,7 @@ compiled successfully, returns the pathname of the compiled file"
(list (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)