X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgtn.lisp;h=6795bd247aa279f8b38ae2a2a55c4ee29c58a597;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=ac9fc624c3e05bedfe8c9a3213e57cb0777e0cba;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/compiler/gtn.lisp b/src/compiler/gtn.lisp
index ac9fc62..6795bd2 100644
--- a/src/compiler/gtn.lisp
+++ b/src/compiler/gtn.lisp
@@ -127,7 +127,8 @@
 (defun return-value-efficency-note (tails)
   (declare (type tail-set tails))
   (let ((funs (tail-set-functions tails)))
-    (when (policy (lambda-bind (first funs)) (> (max speed space) brevity))
+    (when (policy (lambda-bind (first funs)) (> (max speed space)
+						inhibit-warnings))
       (dolist (fun funs
 		   (let ((*compiler-error-context* (lambda-bind (first funs))))
 		     (compiler-note