Skip to content
Snippets Groups Projects
Commit 4ee1c80b authored by rtoy's avatar rtoy
Browse files

Change call to compiler-note to a call to efficiency-note, so we can

suppress it.
parent 236e65f8
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltn.lisp,v 1.41 2001/03/04 20:12:21 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltn.lisp,v 1.42 2005/01/25 15:49:12 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -924,16 +924,16 @@ ...@@ -924,16 +924,16 @@
(count 1)))) (count 1))))
(let ((*compiler-error-context* call)) (let ((*compiler-error-context* call))
(compiler-note "~{~?~^~&~6T~}" (efficiency-note "~{~?~^~&~6T~}"
(if template (if template
`("Forced to do ~A (cost ~D)." `("Forced to do ~A (cost ~D)."
(,(or (template-note template) (,(or (template-note template)
(template-name template)) (template-name template))
,(template-cost template)) ,(template-cost template))
. ,(messages)) . ,(messages))
`("Forced to do full call." `("Forced to do full call."
nil nil
. ,(messages)))))))) . ,(messages))))))))
(undefined-value)) (undefined-value))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment