id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
1080	condition-case expands into two else clauses	Christian Kellermann		"When expanding the following you can see the second else clause. The compiler in current master warns about this:

{{{
#;2> ,x (condition-case 'something ((exn some thing) 'foo) (exn () 'bar))
((call-with-current-continuation
   (##core#lambda
     (k)
     (with-exception-handler
       (##core#lambda
         (exvar)
         (k (##core#lambda
              ()
              (##core#let
                ((kvar (and (##sys#structure? exvar (##core#quote condition))
                            (##sys#slot exvar 1))))
                (cond ((and kvar
                            (memv (##core#quote exn) kvar)
                            (memv (##core#quote some) kvar)
                            (memv (##core#quote thing) kvar))
                       (##core#let () 'foo))
                      (else (##core#let ((exn exvar)) 'bar))
                      (else (##sys#signal exvar)))))))
       (##core#lambda
         ()
         (##sys#call-with-values
           (##core#lambda () 'something)
           (##core#lambda
             args
             (k (##core#lambda () (##sys#apply ##sys#values args))))))))))
}}}"	defect	closed	major	4.9.0	unknown	4.8.x	fixed	syntax condition-case compiler