feature/native-comp 2ab0966 03/11: Make CHECK_SUBR public

[Andrea Corallo]

branch: feature/native-comp
commit 2ab0966b2fdf3a64d061727f005d32c5aad27594
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    Make CHECK_SUBR public
    
        * src/data.c (CHECK_SUBR): Move from here to...
        * src/lisp.h (CHECK_SUBR): ...to here.
---
 src/data.c | 6 ------
 src/lisp.h | 6 ++++++
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/data.c b/src/data.c
index 3f03526..8c39c31 100644
--- a/src/data.c
+++ b/src/data.c
@@ -88,12 +88,6 @@ XOBJFWD (lispfwd a)
 }
 
 static void
-CHECK_SUBR (Lisp_Object x)
-{
-  CHECK_TYPE (SUBRP (x), Qsubrp, x);
-}
-
-static void
 set_blv_found (struct Lisp_Buffer_Local_Value *blv, int found)
 {
   eassert (found == !EQ (blv->defcell, blv->valcell));
diff --git a/src/lisp.h b/src/lisp.h
index cbc6a66..452f48f 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2982,6 +2982,12 @@ CHECK_INTEGER (Lisp_Object x)
 {
   CHECK_TYPE (INTEGERP (x), Qnumberp, x);
 }
+
+INLINE void
+CHECK_SUBR (Lisp_Object x)
+{
+  CHECK_TYPE (SUBRP (x), Qsubrp, x);
+}
 
 
 /* If we're not dumping using the legacy dumper and we might be using