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

* lisp/emacs-lisp/cl-generic.el (cl--generic-get-dispatcher): Fix regression

Browse source
This commit is contained in:
Stefan Monnier 2021-10-01 15:34:09 -04:00
parent e165bf3d49
commit 2fcd34f202
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -631,6 +631,9 @@ The set of acceptable TYPEs (also called \"specializers\") is defined
(setq dispatch-idx 0)) (setq dispatch-idx 0))
(dotimes (i dispatch-idx) (dotimes (i dispatch-idx)
(push (make-symbol (format "arg%d" (- dispatch-idx i 1))) fixedargs)) (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, ;; FIXME: For generic functions with a single method (or with 2 methods,
;; one of which always matches), using a tagcode + hash-table is ;; one of which always matches), using a tagcode + hash-table is
;; overkill: better just use a `cl-typep' test. ;; overkill: better just use a `cl-typep' test.