From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 9 Sep 2015 17:18:11 +0000 (-0400)
Subject: * lisp/emacs-lisp/cl-generic.el (cl-generic-generalizers): Remove warning
X-Git-Tag: emacs-25.0.90~1224^2~180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88694fb65887ebc2fde9dea18c817e08be26b564;p=emacs.git

* lisp/emacs-lisp/cl-generic.el (cl-generic-generalizers): Remove warning
---

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index c012a30a41f..dd01ebe9dd8 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -1069,8 +1069,11 @@ The value returned is a list of elements of the form
   (or
    (and (assq type cl--generic-typeof-types)
         (progn
-          (if (memq type '(vector array sequence))
-              (message "`%S' also matches CL structs and EIEIO classes" type))
+          ;; FIXME: While this wrinkle in the semantics can be occasionally
+          ;; problematic, this warning is more often annoying than helpful.
+          ;;(if (memq type '(vector array sequence))
+          ;;    (message "`%S' also matches CL structs and EIEIO classes"
+          ;;             type))
           (list cl--generic-typeof-generalizer)))
    (cl-call-next-method)))