# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1097940070 0
# Node ID 817362bee0286e471b88ee48e30ded60a86fb351
# Parent  25bf13fe1c10d53a11ddac4dd983d42c474c27e1
(cl-unload-hook): Don't defvar it, just set it.

diff -r 25bf13fe1c10 -r 817362bee028 lisp/emacs-lisp/cl.el
--- a/lisp/emacs-lisp/cl.el	Sat Oct 16 15:20:24 2004 +0000
+++ b/lisp/emacs-lisp/cl.el	Sat Oct 16 15:21:10 2004 +0000
@@ -108,8 +108,7 @@
 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'"))