(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)
(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