From 06645b798a3cb3ea32f08bfc29f3e15253d2d1a3 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 5 Oct 1990 20:03:39 +0000
Subject: [PATCH] Deleted some dead code that the last change detected (!)
 Also, strengthened some global variable type declarations.

---
 compiler/ir1util.lisp | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index bcfca19a8..0a15fe995 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -1413,7 +1413,7 @@ inlines
 ;;; The number of times that the last error message has been emitted, so that
 ;;; we can compress duplicate error messages.
 (defvar *last-message-count* 0)
-
+(proclaim '(type index *last-message-count*))
 
 ;;; Note-Message-Repeats  --  Internal
 ;;;
@@ -1447,9 +1447,6 @@ inlines
 	 (*print-length* *error-print-length*)
 	 (stream *compiler-error-output*)
 	 (context (find-error-context format-args)))
-    
-    (unless stream (return-from print-error-message (undefined-value)))
-    
     (cond
      (context
       (let ((in (compiler-error-context-context context))
@@ -1507,7 +1504,7 @@ inlines
 
 ;;; Keep track of how many times each kind of warning happens.
 ;;;
-(proclaim '(type unsigned-byte *compiler-error-count* *compiler-warning-count*
+(proclaim '(type index *compiler-error-count* *compiler-warning-count*
 		 *compiler-note-count*))
 (defvar *compiler-error-count* 0)
 (defvar *compiler-warning-count* 0)
-- 
GitLab