bug#31840: and-let* expands to if instead of when

[Michael Heerdegen <michael_heerdegen@web.de>]

Jonas Bernoulli <jonas@bernoul.li> writes:

> (and-let* ((a 'a))
>   (body-1)
>   (body-n))
>
> expands to
>
> (let* ((a (and t 'a)))
>   (if a
>       (body-1)
>     (body-n)))
>
> but according to its doc-string ("Like `when-let*'...")
> it is supposed to expand to
>
> (let* ((a (and t 'a)))
>   (if a
>       (progn
>         (body-1)
>         (body-n))))

Good catch.

Looks like a typo - the `if' should just be a `when'.  Mark, can you
have a look?


Thanks,

Michael.