Commit 66eed827 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(cl-cannot-unload): Remove function.

(cl-unload-hook): Remove variable.
(cl-unload-function): New-style unload function,
adapted from `cl-cannot-unload'.
parent 41a79faa
......@@ -109,9 +109,11 @@ 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.")
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment