Ypsilon Scheme Systemのソースを読んでみました。読んだのはobject_heap.cpp中のbytes_to_bucket関数、これだけです。 inline int bytes_to_bucket(int x) { int bucket = 0; if (x > 8) { x = x - 1; /* (1) */ x = x | (x >> 1); /* (2) */ x = x | (x >>…