}
+static void print_unknown(lispobj obj)
+{
+ printf("unknown object: %p", (void *)obj);
+}
+
static void brief_fixnum(lispobj obj)
{
+ /* KLUDGE: Rather than update the tables in print_obj(), we
+ declare all fixnum-or-unknown tags to be fixnums and sort it
+ out here with a guard clause. */
+ if (!fixnump(obj)) return print_unknown(obj);
+
#ifndef LISP_FEATURE_ALPHA
printf("%ld", ((long)obj)>>2);
#else
static void print_fixnum(lispobj obj)
{
+ /* KLUDGE: Rather than update the tables in print_obj(), we
+ declare all fixnum-or-unknown tags to be fixnums and sort it
+ out here with a guard clause. */
+ if (!fixnump(obj)) return print_unknown(obj);
+
#ifndef LISP_FEATURE_ALPHA
printf(": %ld", ((long)obj)>>2);
#else
}
}
-#ifdef LISP_FEATURE_X86_64
-static void print_unknown(lispobj obj)
-{
- printf("unknown object: %p", (void *)obj);
-}
-#endif
-
static void print_list(lispobj obj)
{
if (!is_valid_lisp_addr((os_vm_address_t)native_pointer(obj))) {
{
#ifdef LISP_FEATURE_X86_64
static void (*verbose_fns[])(lispobj obj)
- = {print_fixnum, print_otherimm, print_unknown, print_struct,
- print_unknown, print_otherimm, print_unknown, print_list,
- print_fixnum, print_otherimm, print_unknown, print_otherptr,
- print_unknown, print_otherimm, print_unknown, print_otherptr};
+ = {print_fixnum, print_otherimm, print_fixnum, print_struct,
+ print_fixnum, print_otherimm, print_fixnum, print_list,
+ print_fixnum, print_otherimm, print_fixnum, print_otherptr,
+ print_fixnum, print_otherimm, print_fixnum, print_otherptr};
static void (*brief_fns[])(lispobj obj)
- = {brief_fixnum, brief_otherimm, print_unknown, brief_struct,
- print_unknown, brief_otherimm, print_unknown, brief_list,
- brief_fixnum, brief_otherimm, print_unknown, brief_otherptr,
- print_unknown, brief_otherimm, print_unknown, brief_otherptr};
+ = {brief_fixnum, brief_otherimm, brief_fixnum, brief_struct,
+ brief_fixnum, brief_otherimm, brief_fixnum, brief_list,
+ brief_fixnum, brief_otherimm, brief_fixnum, brief_otherptr,
+ brief_fixnum, brief_otherimm, brief_fixnum, brief_otherptr};
#else
static void (*verbose_fns[])(lispobj obj)
= {print_fixnum, print_struct, print_otherimm, print_list,