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

* lisp/emacs-lisp/cl-generic.el (gv-setter): Move declaration.

Browse source 
Move it to those places where we know gv has been loaded.
This commit is contained in:
Stefan Monnier 2019-06-16 18:35:35 -04:00
parent fd9cff0279
commit 309743b465
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -101,8 +101,6 @@
(eval-when-compile (require 'cl-macs)) ;For cl--find-class.
(eval-when-compile (require 'pcase))
(declare-function gv-setter "gv" (name))
(cl-defstruct (cl--generic-generalizer
(:constructor nil)
(:constructor cl-generic-make-generalizer
@ -240,6 +238,7 @@ DEFAULT-BODY, if present, is used as the body of a default method.
(push `(,args ,@options-and-methods) methods))
(when (eq 'setf (car-safe name))
(require 'gv)
(declare-function gv-setter "gv" (name))
(setq name (gv-setter (cadr name))))
`(prog1
(progn
@ -445,6 +444,7 @@ The set of acceptable TYPEs (also called \"specializers\") is defined
(setq args (pop body)))
(when (eq 'setf (car-safe name))
(require 'gv)
(declare-function gv-setter "gv" (name))
(setq name (gv-setter (cadr name))))
(pcase-let* ((`(,uses-cnm . ,fun) (cl--generic-lambda args body)))
`(progn