From adf167fa2cf6983f8703c74a7d038e655c387a99 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 10 Oct 1990 08:46:01 +0000
Subject: [PATCH] Fixed paren error in last edit.

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

diff --git a/compiler/life.lisp b/compiler/life.lisp
index d52ff4fe4..2a679e717 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -316,8 +316,8 @@
 
     (do ((op (do ((op ops (tn-ref-across op))
 		  (i 0 (1+ i)))
-		 ((= i (length fixed)) op))
-	     (declare (type index i))
+		 ((= i (length fixed)) op)
+	       (declare (type index i)))
 	     (tn-ref-across op)))
 	((null op))
       (let ((tn (tn-ref-tn op)))
-- 
GitLab