[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#46843: 28.0.50; [native-comp] (lambda (x) (if (equal x b) (eq x b) (
|
From: |
Andrea Corallo |
|
Subject: |
bug#46843: 28.0.50; [native-comp] (lambda (x) (if (equal x b) (eq x b) (error ""))) miscompiled |
|
Date: |
Mon, 01 Mar 2021 09:08:11 +0000 |
|
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) |
Pip Cet <pipcet@gmail.com> 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