From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.bugs Subject: bug#20639: 24.5; nesting cl-tagbody Date: Mon, 25 May 2015 09:39:52 -0400 Message-ID: References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1432561296 15998 80.91.229.3 (25 May 2015 13:41:36 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 25 May 2015 13:41:36 +0000 (UTC) Cc: 20639-done@debbugs.gnu.org To: Leo Liu Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon May 25 15:41:26 2015 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Ywsd8-0008RI-N0 for geb-bug-gnu-emacs@m.gmane.org; Mon, 25 May 2015 15:41:22 +0200 Original-Received: from localhost ([::1]:43721 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ywsd8-0000Ne-2g for geb-bug-gnu-emacs@m.gmane.org; Mon, 25 May 2015 09:41:22 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:46179) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ywsd0-0000NW-Uh for bug-gnu-emacs@gnu.org; Mon, 25 May 2015 09:41:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Ywscs-0001V9-Tz for bug-gnu-emacs@gnu.org; Mon, 25 May 2015 09:41:14 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:45398) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ywscs-0001V5-RJ for bug-gnu-emacs@gnu.org; Mon, 25 May 2015 09:41:06 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Ywscr-0007FC-VL for bug-gnu-emacs@gnu.org; Mon, 25 May 2015 09:41:06 -0400 Resent-From: Stefan Monnier Original-Sender: "Debbugs-submit" Resent-To: bug-gnu-emacs@gnu.org Resent-Date: Mon, 25 May 2015 13:41:04 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: cc-closed 20639 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Mail-Followup-To: 20639@debbugs.gnu.org, monnier@iro.umontreal.ca, sdl.web@gmail.com Original-Received: via spool by 20639-done@debbugs.gnu.org id=D20639.143256121427779 (code D ref 20639); Mon, 25 May 2015 13:41:04 +0000 Original-Received: (at 20639-done) by debbugs.gnu.org; 25 May 2015 13:40:14 +0000 Original-Received: from localhost ([127.0.0.1]:55371 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Ywsbx-0007Dv-GC for submit@debbugs.gnu.org; Mon, 25 May 2015 09:40:14 -0400 Original-Received: from ironport2-out.teksavvy.com ([206.248.154.181]:60962) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Ywsbm-0007DB-Vv for 20639-done@debbugs.gnu.org; Mon, 25 May 2015 09:40:03 -0400 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: A0A1FgA731xV/9N+3mhcgxCEAoVVu0CEfoJNBAICgTw6EwEBAQEBAQGBCkEFg10BAQRWIxALDiYSFBgNJIg/zyMBAQEBAQEEAQEBAR6LOoUFB4QtBbUEI4QUIoJ4AQEB X-IPAS-Result: A0A1FgA731xV/9N+3mhcgxCEAoVVu0CEfoJNBAICgTw6EwEBAQEBAQGBCkEFg10BAQRWIxALDiYSFBgNJIg/zyMBAQEBAQEEAQEBAR6LOoUFB4QtBbUEI4QUIoJ4AQEB X-IronPort-AV: E=Sophos;i="5.13,465,1427774400"; d="scan'208";a="122126056" Original-Received: from 104-222-126-211.cpe.teksavvy.com (HELO ceviche.home) ([104.222.126.211]) by ironport2-out.teksavvy.com with ESMTP/TLS/DHE-RSA-AES256-SHA; 25 May 2015 09:39:53 -0400 Original-Received: by ceviche.home (Postfix, from userid 20848) id A181B660D6; Mon, 25 May 2015 09:39:52 -0400 (EDT) In-Reply-To: (Leo Liu's message of "Sun, 24 May 2015 11:56:30 +0800") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:103153 Archived-At: > (cl-tagbody :next > (cl-tagbody :next Yay! Someone's using cl-tagbody!? I installed the patch below which should fix those problems, Stefan diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 27d3da3..636c543 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))