diff --git a/compiler/checkgen.lisp b/compiler/checkgen.lisp index 54327c34369ce5e20426382f9b53cf3e3140573d..445b8f53082a834c2a72bc1295bd3aa396a39b1b 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"