Re: Instead of pcase

[Stefan Monnier]

> (let ((exp (if t '(foo . "str") '(bar . 7))))
>   (cl-case (car exp)
>     (foo
>      (when-let ((d (cdr exp)))
>        (concat "str" val)))
>     (bar
>      (when-let ((d (cdr exp)))
>        (1+ val)))))

AKA

    (let ((exp (if t '(foo . "str") '(bar . 7))))
      (case (car exp)
        ('foo
         (when-let ((d (cdr exp)))
           (concat "str" val)))
        ('bar
         (when-let ((d (cdr exp)))
           (1+ val)))))

Funnily enough this quoting of the values against which we want to match
is so natural for coders not familiar with `cl-case` that we went
through some efforts to try and detect their mis-use.

So at least for some coders, in the above case, the `pcase` syntax is the
more natural one :-)


        Stefan