From 5d45bef26008a92a4df56cb1fc31c9e55641fdde Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sat, 6 Oct 1990 18:47:16 +0000
Subject: [PATCH] Added a declaration.

---
 compiler/life.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/life.lisp b/compiler/life.lisp
index 21ff5d37c..d52ff4fe4 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -317,6 +317,7 @@
     (do ((op (do ((op ops (tn-ref-across op))
 		  (i 0 (1+ i)))
 		 ((= i (length fixed)) op))
+	     (declare (type index i))
 	     (tn-ref-across op)))
 	((null op))
       (let ((tn (tn-ref-tn op)))
@@ -368,6 +369,7 @@
 (defun lifetime-pre-pass (component)
   (declare (type component component))
   (let ((counter -1))
+    (declare (type fixnum counter))
     (do-blocks-backwards (block component)
       (let ((2block (block-info block)))
 	(do ((lose (find-local-references 2block)
-- 
GitLab