From 6a85378726006c8d53b299fd677df49b5e129f70 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 22 Apr 1990 02:50:12 +0000 Subject: [PATCH] Changed note-number-stack-tns to actually iterrate across the tns instead of just spinning forever marking the same tn as being on the number stack. --- compiler/represent.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/represent.lisp b/compiler/represent.lisp index e87eda6f7..71f9f7c65 100644 --- a/compiler/represent.lisp +++ b/compiler/represent.lisp @@ -233,7 +233,7 @@ (defun note-number-stack-tn (refs) (declare (type (or tn-ref null) refs)) - (do ((ref refs (tn-ref-next refs))) + (do ((ref refs (tn-ref-next ref))) ((null ref)) (let* ((lambda (block-lambda (ir2-block-block -- GitLab