value_to_lisp (value));
}
+static struct Lisp_Module_Function *
+allocate_module_function (void)
+{
+ return ALLOCATE_PSEUDOVECTOR (struct Lisp_Module_Function,
+ min_arity, PVEC_MODULE_FUNCTION);
+}
+
+#define XSET_MODULE_FUNCTION(var, ptr) \
+ XSETPSEUDOVECTOR (var, ptr, PVEC_MODULE_FUNCTION)
+
/* A module function is a pseudovector of subtype
PVEC_MODULE_FUNCTION; see lisp.h for the definition. */
void *data;
};
-INLINE struct Lisp_Module_Function *
-allocate_module_function (void)
-{
- return ALLOCATE_PSEUDOVECTOR (struct Lisp_Module_Function,
- /* Name of the first field to be
- ignored by GC. */
- min_arity,
- PVEC_MODULE_FUNCTION);
-}
-
INLINE bool
MODULE_FUNCTIONP (Lisp_Object o)
{
return XUNTAG (o, Lisp_Vectorlike);
}
-#define XSET_MODULE_FUNCTION(var, ptr) \
- (XSETPSEUDOVECTOR (var, ptr, PVEC_MODULE_FUNCTION))
-
#ifdef HAVE_MODULES
/* Defined in alloc.c. */
extern Lisp_Object make_user_ptr (void (*finalizer) (void *), void *p);