* lisp/emacs-lisp/elint.el (elint-init-form): Remove outdated CL hack

diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index 8d10a162b096ace0c4c2f23f44bca01b1593ca51..643d7160dbb767db1d341512b4b87f69d50f73f8 100644 (file)
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -463,21 +463,9 @@ Return nil if there are no more forms, t otherwise."
    ;; Import variable definitions
    ((memq (car form) '(require cc-require cc-require-when-compile))
     (let ((name (eval (cadr form)))
-         (file (eval (nth 2 form)))
-         (elint-doing-cl (bound-and-true-p elint-doing-cl)))
+         (file (eval (nth 2 form))))
       (unless (memq name elint-features)
        (add-to-list 'elint-features name)
-       ;; cl loads cl-macs in an opaque manner.
-       ;; Since cl-macs requires cl, we can just process cl-macs.
-        ;; FIXME: AFAIK, `cl' now behaves properly and does not need any
-        ;; special treatment any more.  Can someone who understands this
-        ;; code confirm?  --Stef
-       (and (eq name 'cl) (not elint-doing-cl)
-            ;; We need cl if elint-form is to be able to expand cl macros.
-            (require 'cl)
-            (setq name 'cl-macs
-                  file nil
-                  elint-doing-cl t)) ; blech
        (setq elint-env (elint-add-required-env elint-env name file))))))
   elint-env)