(zerop *compiler-warning-count*)
(zerop *compiler-style-warning-count*)
(zerop *compiler-note-count*)))
(zerop *compiler-warning-count*)
(zerop *compiler-style-warning-count*)
(zerop *compiler-note-count*)))
~[~:;~:*~& caught ~D fatal ERROR condition~:P~]~
~[~:;~:*~& caught ~D ERROR condition~:P~]~
~[~:;~:*~& caught ~D WARNING condition~:P~]~
~[~:;~:*~& caught ~D STYLE-WARNING condition~:P~]~
~[~:;~:*~& caught ~D fatal ERROR condition~:P~]~
~[~:;~:*~& caught ~D ERROR condition~:P~]~
~[~:;~:*~& caught ~D WARNING condition~:P~]~
~[~:;~:*~& caught ~D STYLE-WARNING condition~:P~]~
;;; Evaluate BODY, then return (VALUES BODY-VALUE WARNINGS-P
;;; FAILURE-P), where BODY-VALUE is the first value of the body, and
;;; Evaluate BODY, then return (VALUES BODY-VALUE WARNINGS-P
;;; FAILURE-P), where BODY-VALUE is the first value of the body, and
(compiler-error "bad FILE-COMMENT form: ~S" form))
(let ((file (first (source-info-current-file *source-info*))))
(cond ((file-info-comment file)
(compiler-error "bad FILE-COMMENT form: ~S" form))
(let ((file (first (source-info-current-file *source-info*))))
(cond ((file-info-comment file)
- (compiler-warning "ignoring extra file comment:~% ~S" form))
+ ;; MNA: compiler message patch
+ (pprint-logical-block (*error-output* nil :per-line-prefix "; ")
+ (compiler-warning "Ignoring extra file comment:~% ~S." form)))
(t
(let ((comment (coerce (second form) 'simple-string)))
(setf (file-info-comment file) comment)
(when sb!xc:*compile-verbose*
(t
(let ((comment (coerce (second form) 'simple-string)))
(setf (file-info-comment file) comment)
(when sb!xc:*compile-verbose*
;;; Force any pending top-level forms to be compiled and dumped so that they
;;; will be evaluated in the correct package environment. Dump the form to be
;;; Force any pending top-level forms to be compiled and dumped so that they
;;; will be evaluated in the correct package environment. Dump the form to be
;;;
;;; Otherwise, we bind *CONSTANTS-BEING-CREATED* and
;;; *CONSTANTS-CREATED-SINCE- LAST-INIT* and compile the creation form
;;;
;;; Otherwise, we bind *CONSTANTS-BEING-CREATED* and
;;; *CONSTANTS-CREATED-SINCE- LAST-INIT* and compile the creation form
-;;; a la LOAD-TIME-VALUE. When this finishes, we tell the dumper to
-;;; use that result instead whenever it sees this constant.
+;;; much the way LOAD-TIME-VALUE does. When this finishes, we tell the
+;;; dumper to use that result instead whenever it sees this constant.
;;;
;;; Now we try to compile the init form. We bind
;;; *CONSTANTS-CREATED-SINCE- LAST-INIT* to NIL and compile the init
;;;
;;; Now we try to compile the init form. We bind
;;; *CONSTANTS-CREATED-SINCE- LAST-INIT* to NIL and compile the init
(defun start-error-output (source-info)
(declare (type source-info source-info))
(dolist (x (source-info-files source-info))
(defun start-error-output (source-info)
(declare (type source-info source-info))
(dolist (x (source-info-files source-info))
(close-fasl-file fasl-file (not compile-won))
(setq output-file-name (pathname (fasl-file-stream fasl-file)))
(when (and compile-won sb!xc:*compile-verbose*)
(close-fasl-file fasl-file (not compile-won))
(setq output-file-name (pathname (fasl-file-stream fasl-file)))
(when (and compile-won sb!xc:*compile-verbose*)