* Fix compilation warning in 'cl--supertypes-for-typeof-types'

* lisp/emacs-lisp/cl-preloaded.el (cl--supertypes-for-typeof-types): Fix
warning.

(cherry picked from commit 0567f3b817ba25c8e216347cc7118fa7786039d9)

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index 0b30e10b344e93153f7ec03e6da9278a374e1ca5..198e6d812629260b76f03765b028d0eee912d04c 100644 (file)
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -99,8 +99,7 @@ the symbols returned by `type-of', and SUPERTYPES is the list of its
 supertypes from the most specific to least specific.")
 
 (defun cl--supertypes-for-typeof-types (type)
-  (cl-loop with res = ()
-           with agenda = (list type)
+  (cl-loop with agenda = (list type)
            while agenda
            for element = (car agenda)
            unless (or (eq element t) ;; no t in `cl--typeof-types'.