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 9087802d5db5145b5187f90b5e978443d69ebcd2..0fa29fd6c1380b423a47f284c519f78d1e35814d 100644 (file)
--- 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,