From 51bcbcda9ec3f5ea01da219f030e6ef27106fd0a Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 16 May 1990 10:56:25 +0000
Subject: [PATCH] Type warnings only inhibited when brevity = 3.

---
 compiler/checkgen.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/checkgen.lisp b/compiler/checkgen.lisp
index 54327c343..445b8f530 100644
--- a/compiler/checkgen.lisp
+++ b/compiler/checkgen.lisp
@@ -388,7 +388,7 @@
 		(when (and (combination-p dest)
 			   (function-info-p (basic-combination-kind dest)))
 		  (setf (basic-combination-kind dest) :full)))
-	      (when (policy node (>= safety brevity))
+	      (unless (policy node (= brevity 3))
 		(let ((*compiler-error-context* node))
 		  (if (and (ref-p node) (constant-p (ref-leaf node)))
 		      (compiler-warning "This is not a ~S:~%  ~S"
-- 
GitLab