From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 6 Mar 2021 19:51:11 +0000 (+0100)
Subject: * lisp/emacs-lisp/comp.el (comp-add-cond-cstrs-simple): Suppress warning.
X-Git-Tag: emacs-28.0.90~2727^2~98
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3848f3bff0d39e21ee016ea9c3fae4bf07fc0a57;p=emacs.git

* lisp/emacs-lisp/comp.el (comp-add-cond-cstrs-simple): Suppress warning.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 4a418c1aade..8a6e761fe40 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2384,8 +2384,7 @@ TARGET-BB-SYM is the symbol name of the target block."
     for insn-seq on (comp-block-insns b)
     do
     (pcase insn-seq
-      (`((set ,(and (pred comp-mvar-p) tmp-mvar)
-              ,(and (pred comp-mvar-p) obj1))
+      (`((set ,(and (pred comp-mvar-p) tmp-mvar) ,(pred comp-mvar-p))
          ;; (comment ,_comment-str)
          (cond-jump ,tmp-mvar ,obj2 . ,blocks))
        (cl-loop