[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#20639: 24.5; nesting cl-tagbody
From: |
Leo Liu |
Subject: |
bug#20639: 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
- bug#20639: 24.5; nesting cl-tagbody,
Leo Liu <=