procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2015-09-09 13:18:11 -04:00
parent 17fff76fea
commit 88694fb658
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/cl-generic.el
View file

@ -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)))