+static inline int
+lowtag_of(lispobj obj)
+{
+ return obj & LOWTAG_MASK;
+}
+
+static inline int
+widetag_of(lispobj obj)
+{
+ return obj & WIDETAG_MASK;
+}
+
+static inline unsigned long
+HeaderValue(lispobj obj)
+{
+ return obj >> N_WIDETAG_BITS;
+}
+
+static inline struct cons *
+CONS(lispobj obj)
+{
+ return (struct cons *)(obj - LIST_POINTER_LOWTAG);
+}
+
+static inline struct symbol *
+SYMBOL(lispobj obj)
+{
+ return (struct symbol *)(obj - OTHER_POINTER_LOWTAG);
+}
+
+static inline struct fdefn *
+FDEFN(lispobj obj)
+{
+ return (struct fdefn *)(obj - OTHER_POINTER_LOWTAG);
+}