diff options
| -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 | |||
| 1069 | (or | 1069 | (or |
| 1070 | (and (assq type cl--generic-typeof-types) | 1070 | (and (assq type cl--generic-typeof-types) |
| 1071 | (progn | 1071 | (progn |
| 1072 | (if (memq type '(vector array sequence)) | 1072 | ;; FIXME: While this wrinkle in the semantics can be occasionally |
| 1073 | (message "`%S' also matches CL structs and EIEIO classes" type)) | 1073 | ;; problematic, this warning is more often annoying than helpful. |
| 1074 | ;;(if (memq type '(vector array sequence)) | ||
| 1075 | ;; (message "`%S' also matches CL structs and EIEIO classes" | ||
| 1076 | ;; type)) | ||
| 1074 | (list cl--generic-typeof-generalizer))) | 1077 | (list cl--generic-typeof-generalizer))) |
| 1075 | (cl-call-next-method))) | 1078 | (cl-call-next-method))) |
| 1076 | 1079 | ||