From 7648bad0f8cc28fe43d85bfc5cda8251faf93be6 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 1 Oct 1991 17:23:04 +0000
Subject: [PATCH] Changed to count notes and display in completion message.

---
 hemlock/lispeval.lisp | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

diff --git a/hemlock/lispeval.lisp b/hemlock/lispeval.lisp
index bfaa0ecbf..6a03ae8e7 100644
--- a/hemlock/lispeval.lisp
+++ b/hemlock/lispeval.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.5 1991/10/01 17:10:03 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.6 1991/10/01 17:23:04 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -42,7 +42,8 @@
   error-file		      ; The file to dump errors into
   load			      ; Load compiled file or not?
   (errors 0)		      ; Count of compiler errors.
-  (warnings 0))		      ; Count of compiler warnings.
+  (warnings 0)		      ; Count of compiler warnings.
+  (notes 0))		      ; Count of compiler notes.
 ;;;
 (defun %print-note (note stream d)
   (declare (ignore d))
@@ -171,7 +172,8 @@
     (message "~A" message)
     (case severity
       (:error (incf (note-errors note)))
-      (:warning (incf (note-warnings note))))
+      (:warning (incf (note-warnings note)))
+      (:note (incf (note-notes note))))
     (let ((region (case (note-kind note)
 		    (:compile
 		     (note-region note))
@@ -215,13 +217,16 @@
     (setf (note-server note) nil)
 
     (if abortp
-      (loud-message "The ~A aborted." (note-context note))
-      (let ((errors (note-errors note))
-	    (warnings (note-warnings note)))
-	(message "The ~A complete.~@[ ~D error~:P~]~@[ ~D warning~:P~]"
-		 (note-context note)
-		 (and (plusp errors) errors)
-		 (and (plusp warnings) warnings))))
+	(loud-message "The ~A aborted." (note-context note))
+	(let ((errors (note-errors note))
+	      (warnings (note-warnings note))
+	      (notes (note-notes note)))
+	  (message "The ~A complete.~
+		    ~@[ ~D error~:P~]~@[ ~D warning~:P~]~@[ ~D note~:P~]"
+		   (note-context note)
+		   (and (plusp errors) errors)
+		   (and (plusp warnings) warnings)
+		   (and (plusp notes) notes))))
 
     (let ((region (note-region note)))
       (when (regionp region)
@@ -235,11 +240,11 @@
 	       file)
       (if (> (file-write-date file)
 	     (note-output-date note))
-	(let ((new-name (make-pathname :type "fasl"
-				       :defaults (note-input-file note))))
-	  (rename-file file new-name)
-	  (mach:unix-chmod (namestring new-name) #o644))
-	(delete-file file)))
+	  (let ((new-name (make-pathname :type "fasl"
+					 :defaults (note-input-file note))))
+	    (rename-file file new-name)
+	    (mach:unix-chmod (namestring new-name) #o644))
+	  (delete-file file)))
     (maybe-send-next-note server))
   (values))
 
-- 
GitLab