X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Frepresent.lisp;h=e53d4003c9b8ac1d0b07d4f0ddb34a31cf72c819;hb=993d5b779638756473181dda8d928d33038d4cc3;hp=0155b2f6d27d5a31455ea8f8b83cb25ec6697fb5;hpb=64bf93a97814ea1caf62bbdcc7ef43e2fbfc8f73;p=sbcl.git

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index 0155b2f..e53d400 100644
--- a/src/compiler/represent.lisp
+++ b/src/compiler/represent.lisp
@@ -354,7 +354,8 @@
 	 (op-tn (tn-ref-tn op))
 	 (*compiler-error-context* op-node))
     (cond ((eq (tn-kind op-tn) :constant))
-	  ((policy op-node (and (<= speed brevity) (<= space brevity))))
+	  ((policy op-node (and (<= speed inhibit-warnings)
+				(<= space inhibit-warnings))))
 	  ((member (template-name (vop-info op-vop)) *suppress-note-vops*))
 	  ((null dest-tn)
 	   (let* ((op-info (vop-info op-vop))