Subject: Re: bug#46843: 28.0.50; [native-comp] (lambda (x) (if (equal x b) (eq x b) (error ""))) miscompiled

From: Andrea Corallo <[email-masked]>
Date: Mon, 01 Mar 2021 09:08:11 +0000

Pip Cet <[email-masked]> writes:

> In *scratch*, evaluate
>
> (funcall
>  (let* ((lexical-binding t)
>         (a (list 'a))
>         (b (cons a a)))
>    (native-compile
>     `(lambda (x) (if (equal x ',b) (eq x ',b) (error "")))))
>  '((a) a))
>
> Expected result:
>
> nil
>
> Actual result:
>
> t

Thanks for reporting this, will come-up with a fix.

  Andrea