From 88694fb65887ebc2fde9dea18c817e08be26b564 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 9 Sep 2015 13:18:11 -0400 Subject: [PATCH] * lisp/emacs-lisp/cl-generic.el (cl-generic-generalizers): Remove warning --- lisp/emacs-lisp/cl-generic.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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))) -- 2.11.4.GIT