add comp_VECTORLIKEP

diff --git a/src/comp.c b/src/comp.c
index d4f08df48eeb145f0b887fc134d33c3e7dc87b6f..3c837555d741878f118956d40f726da35c4c1a0a 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -329,6 +329,12 @@ comp_TAGGEDP (gcc_jit_rvalue *obj, unsigned tag)
   return res;
 }
 
+static gcc_jit_rvalue *
+comp_VECTORLIKEP (gcc_jit_rvalue *obj)
+{
+  return comp_TAGGEDP(obj, Lisp_Vectorlike);
+}
+
 static gcc_jit_rvalue *
 comp_CONSP (gcc_jit_rvalue *obj)
 {