(cl-unload-hook): Don't defvar it, just set it.

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index b098a467f9f518219a82a768da6314674c9fb4be..2f6c799f528590914073f78070c6130008aaddb0 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -108,8 +108,7 @@ printer proceeds to the next function on the list.
 This variable is not used at present, but it is defined in hopes that
 a future Emacs interpreter will be able to use it.")
 
-(defvar cl-unload-hook '(cl-cannot-unload)
-  "Prevent unloading the feature `cl', since it does not work.")
+(add-hook 'cl-unload-hook 'cl-cannot-unload)
 (defun cl-cannot-unload ()
   (error "Cannot unload the feature `cl'"))