From 7aa94d60560c0f1ba15b7fd2fd5d5a5bf114795a Mon Sep 17 00:00:00 2001 From: Paul Pogonyshev Date: Sat, 2 Apr 2016 12:47:46 +0300 Subject: [PATCH] Support macros in 'func-arity' * src/eval.c (Ffunc_arity): Support Lisp macros as well. --- src/eval.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/eval.c b/src/eval.c index e90b077bfb6..72facd5db64 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2960,6 +2960,9 @@ function with `&rest' args, or `unevalled' for a special form. */) function = indirect_function (function); } + if (CONSP (function) && EQ (XCAR (function), Qmacro)) + function = XCDR (function); + if (SUBRP (function)) result = Fsubr_arity (function); else if (COMPILEDP (function)) -- 2.39.2