From c2512bc2b592d41c866186da608975180cbe8870 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 10 Dec 2024 12:34:34 +0100 Subject: [PATCH] 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) --- lisp/emacs-lisp/cl-generic.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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, -- 2.39.5