From 3456daefb81f63dea1497118e9c30b62fd863fb9 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 6 Oct 1990 18:21:08 +0000 Subject: [PATCH] In NOTE-REJECTED-TEMPLATES, moved the increment of COUNT inside of the test for whether to flame about the template. --- compiler/ltn.lisp | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp index f2a5668f8..7b002279f 100644 --- a/compiler/ltn.lisp +++ b/compiler/ltn.lisp @@ -768,17 +768,17 @@ :strict-result t))) (when (or (not valid) (not strict-valid)) (frob "Unable to do ~A (cost ~D) because:" - (template-note loser) (template-cost loser))) - - (cond ((not valid) - (valid-function-use call type - :error-function #'frob - :warning-function #'frob)) - ((not strict-valid) - (assert (policy-safe-p policy)) - (frob "Can't trust output type assertion under safe ~ - policy.")))) - (count 1))) + (template-note loser) (template-cost loser)) + + (cond ((not valid) + (valid-function-use call type + :error-function #'frob + :warning-function #'frob)) + (t + (assert (policy-safe-p policy)) + (frob "Can't trust output type assertion under safe ~ + policy."))) + (count 1))))) (let ((*compiler-error-context* call)) (compiler-note "~{~?~^~&~6T~}" -- GitLab