diff --git a/compiler/life.lisp b/compiler/life.lisp index d52ff4fe4c60a90ed441c59fc29c4eee67ac6b04..2a679e717f08aab5533e64d73ea8d388d920eb37 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)))