diff options
| author | Andrea Corallo | 2020-09-14 22:02:18 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-09-14 23:06:42 +0200 |
| commit | 2da2ad29b83090950749f26a7375be4a67964438 (patch) | |
| tree | 5662338ffa1ffbfb1c625c460bc92bf402589dc0 | |
| parent | a3dc11e9ccd48beb84adfe79ff28143c1682f690 (diff) | |
| download | emacs-2da2ad29b83090950749f26a7375be4a67964438.tar.gz emacs-2da2ad29b83090950749f26a7375be4a67964438.zip | |
* lisp/emacs-lisp/comp.el (comp-sp): Better style gv-setter declaration.
| -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.") | |||
| 810 | 810 | ||
| 811 | (defsubst comp-sp () | 811 | (defsubst comp-sp () |
| 812 | "Current stack pointer." | 812 | "Current stack pointer." |
| 813 | (declare (gv-setter (lambda (val) | ||
| 814 | `(setf (comp-limplify-sp comp-pass) ,val)))) | ||
| 813 | (comp-limplify-sp comp-pass)) | 815 | (comp-limplify-sp comp-pass)) |
| 814 | (gv-define-setter comp-sp (value) | ||
| 815 | `(setf (comp-limplify-sp comp-pass) ,value)) | ||
| 816 | 816 | ||
| 817 | (defmacro comp-with-sp (sp &rest body) | 817 | (defmacro comp-with-sp (sp &rest body) |
| 818 | "Execute BODY setting the stack pointer to SP. | 818 | "Execute BODY setting the stack pointer to SP. |