# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1193834807 0
# Node ID 7400d979a9d9c84e0ef6820bd7215bc87fe7d1c4
# Parent  efa76b2f6668023932e5d4861d7b7e5bd719c9a9
(cl-cannot-unload): Remove function.
(cl-unload-hook): Remove variable.
(cl-unload-function): New-style unload function,
adapted from `cl-cannot-unload'.

diff -r efa76b2f6668 -r 7400d979a9d9 lisp/emacs-lisp/cl.el
--- a/lisp/emacs-lisp/cl.el	Wed Oct 31 12:46:08 2007 +0000
+++ b/lisp/emacs-lisp/cl.el	Wed Oct 31 12:46:47 2007 +0000
@@ -109,9 +109,11 @@
 This variable is not used at present, but it is defined in hopes that
 a future Emacs interpreter will be able to use it.")
 
-(add-hook 'cl-unload-hook 'cl-cannot-unload)
-(defun cl-cannot-unload ()
-  (error "Cannot unload the feature `cl'"))
+(defun cl-unload-function ()
+  "Stop unloading of the Common Lisp extensions."
+  (message "Cannot unload the feature `cl'")
+  ;; stop standard unloading!
+  t)
 
 ;;; Generalized variables.
 ;; These macros are defined here so that they