mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cl-generic.el: Fix test/lisp/loadhist-tests

Browse source 
Revert 2fcd34f202 which was redundant anyway since e165bf3d4
had fixed it in a better way anyway (a way which doesn't litter the
`load-history`).
This commit is contained in:
Stefan Monnier 2021-10-01 23:53:20 -04:00
parent 2fcd34f202
commit 58f8c3affc
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -631,14 +631,13 @@ 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.
(byte-compile (byte-compile
`(lambda (generic dispatches-left methods) `(lambda (generic dispatches-left methods)
;; FIXME: We should find a way to expand `with-memoize' once
;; and forall so we don't need `subr-x' when we get here.
(eval-when-compile (require 'subr-x)) (eval-when-compile (require 'subr-x))
(let ((method-cache (make-hash-table :test #'eql))) (let ((method-cache (make-hash-table :test #'eql)))
(lambda (,@fixedargs &rest args) (lambda (,@fixedargs &rest args)