From dcfc2b35f7374553ea3c3e01e95898b37ccc3d15 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 27 Dec 2009 23:23:56 +0100 Subject: [PATCH] Remove assignments to T. --- src/new-cmp/cmptag.lsp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/new-cmp/cmptag.lsp b/src/new-cmp/cmptag.lsp index 9ed88bb49..9ca2b6662 100644 --- a/src/new-cmp/cmptag.lsp +++ b/src/new-cmp/cmptag.lsp @@ -151,9 +151,10 @@ The second value is an association list of atoms to the tags they represent." (nconc (c1bind (list tag-var)) (c1frame-id tag-var) (c1frame-set tag-var normal-tag) - (loop for t in tags - when (or (tag-ref-ccb t) (tag-ref-clb t)) - collect (c1translate `(JMP-TRUE ,t) `(EQ (VALUES-REF 0) ,(tag-index t)))) + (loop for tag in tags + when (or (tag-ref-ccb tag) (tag-ref-clb tag)) + collect (c1translate `(JMP-TRUE ,tag) + `(EQ (VALUES-REF 0) ,(tag-index tag)))) (c1translate 'TRASH '(error "Unknown GO tag")) (list normal-tag) body