- (external-entry-point-p clambda)))))
- (setf (environment-info lambda-environment) res)
- (setf (ir2-environment-old-fp res)
- (make-old-fp-save-location lambda-environment))
- (setf (ir2-environment-return-pc res)
- (make-return-pc-save-location lambda-environment))))
+ (xep-p clambda)))))
+ (setf (physenv-info lambda-physenv) res)
+ (setf (ir2-physenv-old-fp res)
+ (make-old-fp-save-location lambda-physenv))
+ (setf (ir2-physenv-return-pc res)
+ (make-return-pc-save-location lambda-physenv))))