void sprint_random_vector(LispObj o, unsigned subtag, natural elements) { add_c_string("#<"); sprint_unsigned_decimal(elements); add_c_string("-element vector subtag = "); sprintf(numbuf, "%02X @", subtag); add_c_string(numbuf); sprint_unsigned_hex(o); add_c_string(" ("); add_c_string(vector_subtag_name(subtag)); add_c_string(")>"); }
void sprint_random_vector(LispObj o, unsigned subtag, natural elements) { add_c_string("#<"); sprint_unsigned_decimal(elements); add_c_string("-element vector subtag = #x"); add_char(digits[subtag>>4]); add_char(digits[subtag&15]); add_c_string(" @"); sprint_unsigned_hex(o); add_c_string(" ("); add_c_string(vector_subtag_name(subtag)); add_c_string(")>"); }