bug#27408: 26.0.50; macro setq-local does not have a debug declaration

["Stefan-W. Hahn" <stefan.hahn@s-hahn.de>]

[-- Attachment #1: Type: text/plain, Size: 456 bytes --]

Mail von npostavs@users.sourceforge.net, Sat, 17 Jun 2017 at 15:45:46 -0400:

Hello,

> >  (defmacro setq-local (var val)
> 
> I get a compile failure after applying this:

Sorry for that. I didn't compile, hups...

Attached is a corrected version which does compile without errors.

With kind regards,
Stefan

-- 
Stefan-W. Hahn                          It is easy to make things.
                                        It is hard to make things simple.

[-- Attachment #2: Corretion of Patch --]
[-- Type: text/x-diff, Size: 839 bytes --]

From 9c79bbb31395e1ac0236f4bcb46a59e7e2abafeb Mon Sep 17 00:00:00 2001
From: "Stefan-W. Hahn" <stefan.hahn@s-hahn.de>
Date: Sun, 18 Jun 2017 09:09:19 +0200
Subject: Added missing debug declaration

* lisp/subr.el (setq-local):
Added debug declaration.

Copyright-paperwork-exempt: yes
---
 lisp/subr.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/subr.el b/lisp/subr.el
index ef00286..d0c8517 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -121,6 +121,7 @@ lambda
 (defmacro setq-local (var val)
   "Set variable VAR to value VAL in current buffer."
   ;; Can't use backquote here, it's too early in the bootstrap.
+  (declare (debug (symbolp form)))
   (list 'set (list 'make-local-variable (list 'quote var)) val))
 
 (defmacro defvar-local (var val &optional docstring)
-- 
2.9.0.137.gcf4c2cf