diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-08-09 19:03:01 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-08-09 19:03:42 -0400 |
commit | 75de09b9de2c800d074e2b65a03483d0d44ce3de (patch) | |
tree | c23c7142550670371fd7847556e4776725204325 /test | |
parent | 0509f3921b52feb6b1916e4ba64c91a603991bfe (diff) | |
download | emacs-75de09b9de2c800d074e2b65a03483d0d44ce3de.tar.gz |
* lisp/emacs-lisp/cl-generic.el: Try and fix bug#49866
(cl-generic-generalizers): Remember the specializers that match
a given value.
(cl--generic-eql-generalizer): Adjust accordingly.
* test/lisp/emacs-lisp/cl-generic-tests.el (cl-generic-test-01-eql):
Add corresponding test.
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/emacs-lisp/cl-generic-tests.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/cl-generic-tests.el b/test/lisp/emacs-lisp/cl-generic-tests.el index b48a48fb944..dd7511e9afe 100644 --- a/test/lisp/emacs-lisp/cl-generic-tests.el +++ b/test/lisp/emacs-lisp/cl-generic-tests.el @@ -60,7 +60,10 @@ (defvar cl--generic-fooval 41) (cl-defmethod cl--generic-1 ((_x (eql (+ cl--generic-fooval 1))) _y) "forty-two") - (should (equal (cl--generic-1 42 nil) "forty-two"))) + (cl-defmethod cl--generic-1 (_x (_y (eql 42))) + "FORTY-TWO") + (should (equal (cl--generic-1 42 nil) "forty-two")) + (should (equal (cl--generic-1 nil 42) "FORTY-TWO"))) (cl-defstruct cl-generic-struct-parent a b) (cl-defstruct (cl-generic-struct-child1 (:include cl-generic-struct-parent)) c) |