X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fltn.lisp;h=bbdb87aa7638330f6a4b7c937acfd79b5f14feb4;hb=fdc38abbd1ef5b211c9db03c72e1730284c6edbb;hp=552f50da75e58d7130dd276e8d9bab1a265d214c;hpb=15e14ef1ccd3ab6f4711632435a40493dc4cdd9d;p=sbcl.git

diff --git a/src/compiler/ltn.lisp b/src/compiler/ltn.lisp
index 552f50d..bbdb87a 100644
--- a/src/compiler/ltn.lisp
+++ b/src/compiler/ltn.lisp
@@ -313,8 +313,7 @@
 	   (setf (node-tail-p call) nil))
 	  (t
 	   (setf (basic-combination-info call) :full)
-	   (annotate-fun-lvar (basic-combination-fun call)
-				      nil)
+	   (annotate-fun-lvar (basic-combination-fun call) nil)
 	   (dolist (arg (reverse args))
 	     (annotate-unknown-values-lvar arg))
 	   (flush-full-call-tail-transfer call))))
@@ -696,13 +695,13 @@
 
     (when (losers)
       (collect ((messages)
-		(count 0 +))
+		(notes 0 +))
 	(flet ((lose1 (string &rest stuff)
 		 (messages string)
 		 (messages stuff)))
 	  (dolist (loser (losers))
 	    (when (and *efficiency-note-limit*
-		       (>= (count) *efficiency-note-limit*))
+		       (>= (notes) *efficiency-note-limit*))
 	      (lose1 "etc.")
 	      (return))
 	    (let* ((type (template-type loser))
@@ -721,7 +720,7 @@
 	       (t
 		(aver (ltn-policy-safe-p ltn-policy))
 		(lose1 "can't trust output type assertion under safe policy")))
-	      (count 1))))
+	      (notes 1))))
 
 	(let ((*compiler-error-context* call))
 	  (compiler-notify "~{~?~^~&~6T~}"