diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-09-09 13:18:11 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-09-09 13:18:11 -0400 |
| commit | 88694fb65887ebc2fde9dea18c817e08be26b564 (patch) | |
| tree | d3b0af4b7d9ef71822d5351f3be8c80e10ccfad4 /lisp/emacs-lisp | |
| parent | 17fff76fea2b15a52d03f74d2dedbaec58330a4f (diff) | |
| download | emacs-88694fb65887ebc2fde9dea18c817e08be26b564.tar.gz emacs-88694fb65887ebc2fde9dea18c817e08be26b564.tar.bz2 emacs-88694fb65887ebc2fde9dea18c817e08be26b564.zip | |
* lisp/emacs-lisp/cl-generic.el (cl-generic-generalizers): Remove warning
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 7 |
1 files 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))) |