-char *lowtag_Names[] = {
- "even fixnum",
- "function pointer",
- "other immediate [0]",
- "list pointer",
- "odd fixnum",
- "instance pointer",
- "other immediate [1]",
- "other pointer"
-};
-
-/* FIXME: Yikes! This table implicitly depends on the values in sbcl.h,
- * but doesn't actually depend on them, so if they change, it gets
- * all broken. We should either get rid of it or
- * rewrite the code so that it's cleanly initialized by gc_init_tables[]
- * in a way which varies correctly with the values in sbcl.h. */
-char *subtype_Names[] = {
- "unused 0",
- "unused 1",
- "bignum",
- "ratio",
- "single float",
- "double float",
-#ifdef type_LongFloat
- "long float",
-#endif
- "complex",
-#ifdef type_ComplexSingleFloat
- "complex single float",
-#endif
-#ifdef type_ComplexDoubleFloat
- "complex double float",
-#endif
-#ifdef type_ComplexLongFloat
- "complex long float",
-#endif
- "simple-array",
- "simple-string",
- "simple-bit-vector",
- "simple-vector",
- "(simple-array (unsigned-byte 2) (*))",
- "(simple-array (unsigned-byte 4) (*))",
- "(simple-array (unsigned-byte 8) (*))",
- "(simple-array (unsigned-byte 16) (*))",
- "(simple-array (unsigned-byte 32) (*))",
-#ifdef type_SimpleArraySignedByte8
- "(simple-array (signed-byte 8) (*))",
-#endif
-#ifdef type_SimpleArraySignedByte16
- "(simple-array (signed-byte 16) (*))",
-#endif
-#ifdef type_SimpleArraySignedByte30
- "(simple-array fixnum (*))",
-#endif
-#ifdef type_SimpleArraySignedByte32
- "(simple-array (signed-byte 32) (*))",
-#endif
- "(simple-array single-float (*))",
- "(simple-array double-float (*))",
-#ifdef type_SimpleArrayLongFloat
- "(simple-array long-float (*))",
-#endif
-#ifdef type_SimpleArrayComplexSingleFloat
- "(simple-array (complex single-float) (*))",
-#endif
-#ifdef type_SimpleArrayComplexDoubleFloat
- "(simple-array (complex double-float) (*))",
-#endif
-#ifdef type_SimpleArrayComplexLongFloat
- "(simple-array (complex long-float) (*))",
-#endif
- "complex-string",
- "complex-bit-vector",
- "(array * (*))",
- "array",
- "code header",
- "function header",
- "closure header",
- "funcallable-instance header",
- "unused function header 1",
- "unused function header 2",
- "unused function header 3",
- "closure function header",
- "return PC header",
- "value cell header",
- "symbol header",
- "character",
- "SAP",
- "unbound marker",
- "weak pointer",
- "instance header",
- "fdefn"
-};
-