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