From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 22 Dec 2020 12:04:02 +0000 (+0100)
Subject: * lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Opencode byte-not.
X-Git-Tag: emacs-28.0.90~2727^2~226
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=715cac119a02adb489cfda4b8f310cff87c55a2c;p=emacs.git

* lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Opencode byte-not.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index eef63b52c44..ad09210d8dd 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1446,7 +1446,9 @@ the annotation emission."
       (byte-listp auto)
       (byte-eq auto)
       (byte-memq auto)
-      (byte-not null)
+      (byte-not
+       (comp-emit-set-call (comp-call 'eq (comp-slot-n (comp-sp))
+                                      (make-comp-mvar :constant nil))))
       (byte-car auto)
       (byte-cdr auto)
       (byte-cons auto)