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

[Mark Oteiza]

On 15/06/18 at 06:10am, Michael Heerdegen wrote:
> 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?

Oh my…  I agree, changed in 5b9cc150