diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-10-01 15:34:09 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-10-01 15:34:09 -0400 |
| commit | 2fcd34f20275a9311ea5dc1709e5e565412ddd97 (patch) | |
| tree | ddf8b3b2df8b6db09ec16c6cff4cd991d4f58681 /lisp/emacs-lisp | |
| parent | e165bf3d495b9afc85904810505c0afefdf5cf7e (diff) | |
| download | emacs-2fcd34f20275a9311ea5dc1709e5e565412ddd97.tar.gz emacs-2fcd34f20275a9311ea5dc1709e5e565412ddd97.tar.bz2 emacs-2fcd34f20275a9311ea5dc1709e5e565412ddd97.zip | |
* lisp/emacs-lisp/cl-generic.el (cl--generic-get-dispatcher): Fix regression
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index a2bcad2d3aa..10490f0638c 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -631,6 +631,9 @@ The set of acceptable TYPEs (also called \"specializers\") is defined (setq dispatch-idx 0)) (dotimes (i dispatch-idx) (push (make-symbol (format "arg%d" (- dispatch-idx i 1))) fixedargs)) + ;; FIXME: We should find a way to expand `with-memoize' once and forall + ;; so we don't need `subr-x' when we get here. + (require 'subr-x) ;; FIXME: For generic functions with a single method (or with 2 methods, ;; one of which always matches), using a tagcode + hash-table is ;; overkill: better just use a `cl-typep' test. |