From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 13 Jun 2020 06:04:09 +0000 (+0200)
Subject: * src/alloc.c (cleanup_vector): Fix --enable-check-lisp-object-type build.
X-Git-Tag: emacs-28.0.90~2727^2~567
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88a116d3778982265bdccdd7196a8d76a45736f1;p=emacs.git

* src/alloc.c (cleanup_vector): Fix --enable-check-lisp-object-type build.
---

diff --git a/src/alloc.c b/src/alloc.c
index 750ffbd2dd8..514810b83fa 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3161,7 +3161,7 @@ cleanup_vector (struct Lisp_Vector *vector)
     {
       struct Lisp_Subr *subr =
 	PSEUDOVEC_STRUCT (vector, Lisp_Subr);
-      if (subr->native_comp_u[0])
+      if (!NILP (subr->native_comp_u[0]))
 	{
 	  xfree (subr->symbol_name);
 	  xfree (subr->native_c_name[0]);