From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 25 Apr 2020 15:50:50 +0000 (+0100)
Subject: * src/comp.c (declare_function): fix missing NILP.
X-Git-Tag: emacs-28.0.90~2727^2~683
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3984becca4111d55c540ecab93c5075efa5afba;p=emacs.git

* src/comp.c (declare_function): fix missing NILP.
---

diff --git a/src/comp.c b/src/comp.c
index 2f59164b770..e95ab51cb56 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -3016,7 +3016,7 @@ declare_function (Lisp_Object func)
   gcc_jit_function *gcc_func;
   char *c_name = SSDATA (CALL1I (comp-func-c-name, func));
   Lisp_Object args = CALL1I (comp-func-args, func);
-  bool nargs = (CALL1I (comp-nargs-p, args));
+  bool nargs = !NILP (CALL1I (comp-nargs-p, args));
   USE_SAFE_ALLOCA;
 
   if (!nargs)