reversed-ir2-physenv-alist)))
(let ((res (make-ir2-physenv
- :environment (nreverse reversed-ir2-physenv-alist)
+ :closure (nreverse reversed-ir2-physenv-alist)
:return-pc-pass (make-return-pc-passing-location
(external-entry-point-p clambda)))))
(setf (physenv-info lambda-physenv) res)
;;; a non-standard convention.
(defun use-standard-returns (tails)
(declare (type tail-set tails))
- (let ((funs (tail-set-functions tails)))
+ (let ((funs (tail-set-funs tails)))
(or (and (find-if #'external-entry-point-p funs)
(find-if #'has-full-call-use funs))
(block punt
;;; there is no such function, then be more vague.
(defun return-value-efficiency-note (tails)
(declare (type tail-set tails))
- (let ((funs (tail-set-functions tails)))
+ (let ((funs (tail-set-funs tails)))
(when (policy (lambda-bind (first funs))
(> (max speed space)
inhibit-warnings))