diff --git a/compiler/ir1final.lisp b/compiler/ir1final.lisp index ab73b578d2e8297c89edd5f904e740fbf8c9b439..f95f31d252600422357e65fc92c8a1cecad5d1a4 100644 --- a/compiler/ir1final.lisp +++ b/compiler/ir1final.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.13 1991/03/18 13:07:07 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.14 1991/10/03 18:31:20 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -32,11 +32,12 @@ (not (function-info-p (combination-kind node)))) (let ((*compiler-error-context* node)) (dolist (failure failures) - (let ((what (cdr failure))) + (let ((what (cdr failure)) + (note (transform-note (car failure)))) (cond ((consp what) - (compiler-note "Unable to optimize because:~%~6T~?" - (first what) (rest what))) + (compiler-note "Unable to ~A because:~%~6T~?" + note (first what) (rest what))) ((valid-function-use node what :argument-test #'types-intersect :result-test #'values-types-intersect) @@ -48,9 +49,9 @@ :warning-function #'frob :error-function #'frob)) - (compiler-note "Unable to optimize due to type uncertainty:~@ + (compiler-note "Unable to ~A due to type uncertainty:~@ ~{~6T~?~^~&~}" - (messages)))))))))) + note (messages)))))))))) ;;; FINALIZE-XEP-DEFINITION -- Internal