diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-09-14 22:02:18 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-09-14 23:06:42 +0200 |
| commit | 2da2ad29b83090950749f26a7375be4a67964438 (patch) | |
| tree | 5662338ffa1ffbfb1c625c460bc92bf402589dc0 /lisp/emacs-lisp | |
| parent | a3dc11e9ccd48beb84adfe79ff28143c1682f690 (diff) | |
| download | emacs-2da2ad29b83090950749f26a7375be4a67964438.tar.gz emacs-2da2ad29b83090950749f26a7375be4a67964438.tar.bz2 emacs-2da2ad29b83090950749f26a7375be4a67964438.zip | |
* lisp/emacs-lisp/comp.el (comp-sp): Better style gv-setter declaration.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 831af3793ec..eceba777fa7 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -810,9 +810,9 @@ Points to the next slot to be filled.") (defsubst comp-sp () "Current stack pointer." + (declare (gv-setter (lambda (val) + `(setf (comp-limplify-sp comp-pass) ,val)))) (comp-limplify-sp comp-pass)) -(gv-define-setter comp-sp (value) - `(setf (comp-limplify-sp comp-pass) ,value)) (defmacro comp-with-sp (sp &rest body) "Execute BODY setting the stack pointer to SP. |