X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1opt.lisp;h=3c99417e2d26546a97541f0c15e38d6f5dea3f08;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=67c719ff14163762eb0df6e4f54a24fd6ecd099e;hpb=64bf93a97814ea1caf62bbdcc7ef43e2fbfc8f73;p=sbcl.git

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index 67c719f..3c99417 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -639,7 +639,7 @@
 #!+sb-show
 (defvar *show-transforms-p* nil)
 
-;;; Do IR1 optimizations on a Combination node.
+;;; Do IR1 optimizations on a COMBINATION node.
 (declaim (ftype (function (combination) (values)) ir1-optimize-combination))
 (defun ir1-optimize-combination (node)
   (when (continuation-reoptimize (basic-combination-fun node))
@@ -920,8 +920,8 @@
 	 (constrained (function-type-p type))
 	 (table (component-failed-optimizations *component-being-compiled*))
 	 (flame (if (transform-important transform)
-		    (policy node (>= speed brevity))
-		    (policy node (> speed brevity))))
+		    (policy node (>= speed inhibit-warnings))
+		    (policy node (> speed inhibit-warnings))))
 	 (*compiler-error-context* node))
     (cond ((not (member (transform-when transform)
 			(if *byte-compiling*