From: Stefan Kangas <stefankangas@gmail.com>
Date: Tue, 10 Dec 2024 11:34:34 +0000 (+0100)
Subject: Delete workaround for purespace in cl-generic
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2512bc2b592d41c866186da608975180cbe8870;p=emacs.git

Delete workaround for purespace in cl-generic

* lisp/emacs-lisp/cl-generic.el (cl-generic-define-method): Delete
purespace workaround.

(cherry picked from commit 52dcc032067381f50d658dc43bf7088f1782c7af)
---

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 9087802d5db..0fa29fd6c13 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -653,11 +653,7 @@ The set of acceptable TYPEs (also called \"specializers\") is defined
                          (symbol-function sym)))
             ;; Prevent `defalias' from recording this as the definition site of
             ;; the generic function.
-            current-load-list
-            ;; BEWARE!  Don't purify this function definition, since that leads
-            ;; to memory corruption if the hash-tables it holds are modified
-            ;; (the GC doesn't trace those pointers).
-            (purify-flag nil))
+            current-load-list)
         (when (listp old-adv-cc)
           (set-advertised-calling-convention gfun old-adv-cc nil))
         ;; But do use `defalias', so that it interacts properly with nadvice,