Re: combining cond and let, to replace pcase.

[Daniel Semyonov]

Sorry, I sent the last mail as HTML by accident, here's a more readable version 
of the code:

(cond* (:bind foo bar (x foobar))
       ;; IMO changing t to ':always' would make it very clear what's
       ;; going on here.
       (t (match-set `(a ,foo ,bar) x))
       ((match-set `(b ,foo ,bar) x)
        ;; do stuff and exit
        )
       ;; more conditions...
       )

(cond* (:bind (x foobar))
       (:match (`(a ,foo ,bar) x))
       (:match (`(b ,foo ,bar) x)
               ;; do stuff and exit...
               )
       ;; more conditions...
       )