;;; count when we are done.
(defun note-message-repeats (&optional (terpri t))
(cond ((= *last-message-count* 1)
;;; count when we are done.
(defun note-message-repeats (&optional (terpri t))
(cond ((= *last-message-count* 1)
(defun %print-compiler-message (format-string format-args)
(declare (type simple-string format-string))
(declare (type list format-args))
(defun %print-compiler-message (format-string format-args)
(declare (type simple-string format-string))
(declare (type list format-args))
(pprint-logical-block (stream nil :per-line-prefix ";")
(format stream " note: ~3I~_")
(pprint-logical-block (stream nil)
(pprint-logical-block (stream nil :per-line-prefix ";")
(format stream " note: ~3I~_")
(pprint-logical-block (stream nil)