Changeset 14716


Ignore:
Timestamp:
Apr 16, 2011, 6:22:20 PM (8 years ago)
Author:
rme
Message:

In sprint_specializers_list(), make sure that we're looking at
an instance before we go looking for the class name in it.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/x86_print.c

    r14599 r14716  
    160160      the_car = car(o);
    161161      if (fulltag_of(the_car) == fulltag_misc) {
    162         sprint_lisp_object(deref(deref(the_car,3), 4), depth);
     162        LispObj header = header_of(the_car);
     163        unsigned subtag = header_subtag(header);
     164
     165        if (subtag == subtag_instance) {
     166          sprint_lisp_object(deref(deref(the_car,3), 4), depth);
     167        } else {
     168          sprint_lisp_object(the_car, depth);
     169        }
    163170      } else {
    164171        sprint_lisp_object(the_car, depth);
Note: See TracChangeset for help on using the changeset viewer.