(cl-cannot-unload): New function.

(cl-unload-hook): Defvar this to run cl-cannot-unload.

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index b8d9cd5..b098a46 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -108,6 +108,10 @@ 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.")
+(defun cl-cannot-unload ()
+  (error "Cannot unload the feature `cl'"))
 
 ;;; Predicates.