diff --git a/src/lisp.h b/src/lisp.h
index 9af13a85557..4bf7f38af80 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -921,6 +921,14 @@ XFASTINT (Lisp_Object a)
   return n;
 }
 
+/* Extract A's type.  */
+INLINE enum Lisp_Type
+XTYPE (Lisp_Object a)
+{
+  EMACS_UINT i = XLI (a);
+  return USE_LSB_TAG ? i & ~VALMASK : i >> VALBITS;
+}
+
 /* Extract A's value as a symbol.  */
 INLINE struct Lisp_Symbol *
 XSYMBOL (Lisp_Object a)
@@ -931,14 +939,6 @@ XSYMBOL (Lisp_Object a)
   return p;
 }
 
-/* Extract A's type.  */
-INLINE enum Lisp_Type
-XTYPE (Lisp_Object a)
-{
-  EMACS_UINT i = XLI (a);
-  return USE_LSB_TAG ? i & ~VALMASK : i >> VALBITS;
-}
-
 /* Extract A's pointer value, assuming A's type is TYPE.  */
 INLINE void *
 XUNTAG (Lisp_Object a, int type)