scratch/no-purespace 52dcc032067 37/41: Delete workaround for purespace in cl-generic

[Stefan Kangas]

branch: scratch/no-purespace
commit 52dcc032067381f50d658dc43bf7088f1782c7af
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Delete workaround for purespace in cl-generic
    
    * lisp/emacs-lisp/cl-generic.el (cl-generic-define-method): Delete
    purespace workaround.
---
 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 11685d09d12..96f585df0c5 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -654,11 +654,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,