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