Ignore:
Timestamp:
Aug 18, 2011, 9:29:58 PM (9 years ago)
Author:
gb
Message:

In all three versions of sprint_specializers_list(), try to print
EQL specializers sanely.
(May still want to do something to print ObjC class names.)

File:
1 edited

Legend:

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

    r14716 r14944  
    164164
    165165        if (subtag == subtag_instance) {
    166           sprint_lisp_object(deref(deref(the_car,3), 4), depth);
     166          if (unbox_fixnum(deref(the_car,1)) < (1<<20)) {
     167            sprint_lisp_object(deref(deref(the_car,3), 4), depth);
     168          } else {
     169            /* An EQL specializer */
     170            add_c_string("(EQL ");
     171            sprint_lisp_object(deref(deref(the_car,3), 3), depth);
     172            add_char(')');
     173          }
    167174        } else {
    168175          sprint_lisp_object(the_car, depth);
Note: See TracChangeset for help on using the changeset viewer.