From 9d48c73a74ce12d641336ebde9fc2717db2095c7 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 1 Dec 2012 23:33:58 +0100 Subject: [PATCH] Remove also the unused labels in complex tagbodies --- src/cmp/cmptag.lsp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/cmp/cmptag.lsp b/src/cmp/cmptag.lsp index 74d8a482c..56bb5c2b3 100644 --- a/src/cmp/cmptag.lsp +++ b/src/cmp/cmptag.lsp @@ -135,7 +135,6 @@ (setf (tag-unwind-exit x) *unwind-exit*))) ;; some tag used non locally or inside an unwind-protect (let ((*unwind-exit* (cons 'FRAME *unwind-exit*)) - (label (next-label)) (*env* *env*) (*env-lvl* *env-lvl*) (*lex* *lex*) (*lcl* *lcl*) (*inline-blocks* 0) @@ -162,8 +161,7 @@ (when (var-ref-ccb tag-loc) (wt-nl "ecl_internal_error(\"GO found an inexistent tag\");")) (wt-nl "}") - (let ((*unwind-exit* (cons label *unwind-exit*))) - (c2tagbody-body body)) + (c2tagbody-body body) (close-inline-blocks)))) (defun c2tagbody-body (body)