- (let ((*compiler-error-context* (lambda-bind (first funs))))
- (compiler-note
- "Return value count mismatch prevents known return ~
- from these functions:~
- ~{~% ~A~}"
- (mapcar #'leaf-source-name
- (remove-if-not #'leaf-has-source-name-p funs)))))
- (let ((ret (lambda-return fun)))
- (when ret
- (let ((rtype (return-result-type ret)))
- (multiple-value-bind (ignore count) (values-types rtype)
- (declare (ignore ignore))
- (when (eq count :unknown)
- (let ((*compiler-error-context* (lambda-bind fun)))
- (compiler-note
- "Return type not fixed values, so can't use known return ~
- convention:~% ~S"
- (type-specifier rtype)))
- (return)))))))))
+ (let ((*compiler-error-context* (lambda-bind (first funs))))
+ (compiler-notify
+ "Return value count mismatch prevents known return ~
+ from these functions:~
+ ~{~% ~A~}"
+ (mapcar #'leaf-source-name
+ (remove-if-not #'leaf-has-source-name-p funs)))))
+ (let ((ret (lambda-return fun)))
+ (when ret
+ (let ((rtype (return-result-type ret)))
+ (multiple-value-bind (ignore count) (values-types rtype)
+ (declare (ignore ignore))
+ (when (eq count :unknown)
+ (let ((*compiler-error-context* (lambda-bind fun)))
+ (compiler-notify
+ "Return type not fixed values, so can't use known return ~
+ convention:~% ~S"
+ (type-specifier rtype)))
+ (return)))))))))