GNU bug report logs - #20639
24.5; nesting cl-tagbody

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 20639 in the body.
You can then email your comments to 20639 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Leo Liu <sdl.web <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 24.5; nesting cl-tagbody
Date: Sun, 24 May 2015 11:56:30 +0800

1. eval the following

(let ((c 10))
  (cl-tagbody :next
     (cl-tagbody :next
        (print c)
        (cl-decf c)
        (when (zerop (mod c 2))
          (go :next)))
     (unless (<= c 0)
       (go :next))))

2. if: No catch for tag: #:cl--tagbody-tag, :next

Additionally eval the following

(let ((c 10))
  (cl-tagbody :next1
     (cl-tagbody :next2
        (print c)
        (cl-decf c)
        (when (zerop (mod c 2))
          (go :next2)))
     (unless (<= c 0)
       (go :next1))))

Error: cond: No catch for tag: #:cl--tagbody-tag, cl--exit

Leo

Message #10 received at 20639-done <at> debbugs.gnu.org (full text, mbox):

From: Stefan Monnier <monnier <at> iro.umontreal.ca>
To: Leo Liu <sdl.web <at> gmail.com>
Cc: 20639-done <at> debbugs.gnu.org
Subject: Re: bug#20639: 24.5; nesting cl-tagbody
Date: Mon, 25 May 2015 09:39:52 -0400

>   (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))

Message #13 received at 20639 <at> debbugs.gnu.org (full text, mbox):

From: Leo Liu <sdl.web <at> gmail.com>
To: 20639 <at> debbugs.gnu.org
Cc: monnier <at> iro.umontreal.ca
Subject: Re: bug#20639: 24.5; nesting cl-tagbody
Date: Tue, 26 May 2015 12:54:05 +0800

> Yay!  Someone's using cl-tagbody!?
> I installed the patch below which should fix those problems,

Thanks for the fix. I used it in a macro (could easily be rewritten
without it) and was getting errors.

Leo

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.