From 2da2ad29b83090950749f26a7375be4a67964438 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 14 Sep 2020 22:02:18 +0200 Subject: [PATCH] * lisp/emacs-lisp/comp.el (comp-sp): Better style gv-setter declaration. --- lisp/emacs-lisp/comp.el | 4 ++-- 1 file 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. -- 2.39.5