bug#20639: 24.5; nesting cl-tagbody

[Leo Liu]

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