From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 18 Nov 2024 18:54:15 +0000 (+0200)
Subject: ; Avoid assertion violations in "temacs -Q"
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ebfb0d09eaa6fa6a672b7938c8913dc3dc7078cb;p=emacs.git

; Avoid assertion violations in "temacs -Q"

* src/lread.c (build_load_history): Use Fequal to compare strings.

(cherry picked from commit 9c484d510121e0d545f952bc016586ead61d3f10)
---

diff --git a/src/lread.c b/src/lread.c
index ea0398196e3..c25ffb3c4fe 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2309,7 +2309,7 @@ build_load_history (Lisp_Object filename, bool entire)
   if (entire || !foundit)
     {
       Lisp_Object tem = Fnreverse (Vcurrent_load_list);
-      eassert (EQ (filename, Fcar (tem)));
+      eassert (!NILP (Fequal (filename, Fcar (tem))));
       Vload_history = Fcons (tem, Vload_history);
       /* FIXME: There should be an unbind_to right after calling us which
          should re-establish the previous value of Vcurrent_load_list.  */