X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgtn.lisp;h=e2520f80e6977bb573eefb9c4a4fd7a4014d8079;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=9fd87e675706118871629c835b2eb32f3afc301e;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/gtn.lisp b/src/compiler/gtn.lisp
index 9fd87e67..e2520f8 100644
--- a/src/compiler/gtn.lisp
+++ b/src/compiler/gtn.lisp
@@ -14,9 +14,6 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 ;;; We make a pass over the component's environments, assigning argument
 ;;; passing locations and return conventions and TNs for local variables.
 (defun gtn-analyze (component)
@@ -130,7 +127,9 @@
 (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