-#else /* ! USE_MINIMAL_TAGBITS */
-
-# define XSETOBJ(var, vartype, value) do { \
- EMACS_UINT xset_value = (EMACS_UINT) (value); \
- Lisp_Object *xset_var = &(var); \
- xset_var->gu.type = (vartype); \
- xset_var->gu.markbit = 0; \
- xset_var->gu.val = xset_value; \
-} while (0)
-# define XSETINT(var, value) XSETOBJ (var, Lisp_Type_Int, value)
-# define XSETCHAR(var, value) XSETOBJ (var, Lisp_Type_Char, value)
-# define XPNTRVAL(x) ((x).gu.val)
-
-#endif /* ! USE_MINIMAL_TAGBITS */
-
-INLINE Lisp_Object make_int (EMACS_INT val);
-INLINE Lisp_Object