From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 8 May 2022 21:33:49 +0000 (+0200)
Subject: * src/lisp.h (FOR_EACH_TAIL_INTERNAL): Faster node comparison.
X-Git-Tag: emacs-29.0.90~1910^2~817
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14fe0eec0cc6e4ad636d28832ca6ae22955abd81;p=emacs.git

* src/lisp.h (FOR_EACH_TAIL_INTERNAL): Faster node comparison.
---

diff --git a/src/lisp.h b/src/lisp.h
index 1ad89fc4689..b00f3f7e2e6 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -5515,7 +5515,7 @@ struct for_each_tail_internal
 	  || ((check_quit) ? maybe_quit () : (void) 0, 0 < --li.n)	\
 	  || (li.q = li.n = li.max <<= 1, li.n >>= USHRT_WIDTH,		\
 	      li.tortoise = (tail), false))				\
-	 && EQ (tail, li.tortoise))					\
+	 && BASE_EQ (tail, li.tortoise))				\
 	? (cycle) : (void) 0))
 
 /* Do a `for' loop over alist values.  */