From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 25 May 2015 13:39:35 +0000 (-0400)
Subject: * lisp/emacs-lisp/cl-macs.el (cl-tagbody): Scope cl--tagbody-alist
X-Git-Tag: emacs-25.0.90~1980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b15c63952f161dadd24fe96ae58ef22124fac6eb;p=emacs.git

* lisp/emacs-lisp/cl-macs.el (cl-tagbody): Scope cl--tagbody-alist

Fixes: debbugs:20639
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 27d3da3dca4..636c5433a97 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1786,7 +1786,8 @@ Labels have lexical scope and dynamic extent."
       (unless (eq 'go (car-safe (car-safe block)))
         (push `(go cl--exit) block))
       (push (nreverse block) blocks))
-    (let ((catch-tag (make-symbol "cl--tagbody-tag")))
+    (let ((catch-tag (make-symbol "cl--tagbody-tag"))
+          (cl--tagbody-alist cl--tagbody-alist))
       (push (cons 'cl--exit catch-tag) cl--tagbody-alist)
       (dolist (block blocks)
         (push (cons (car block) catch-tag) cl--tagbody-alist))