- /* Large objects (specifically vectors and bignums) can
- * shrink, leaving a "tail" of zeroed space, which appears to
- * the filter above as a seris of valid conses, both car and
- * cdr of which contain the fixnum zero, but will be
- * deallocated when the GC shrinks the large object region to
- * fit the object within. We allow raw pointers within code
- * space, but for boxed and unboxed space we do not, nor do
- * pointers to within a non-code object appear valid above. A
- * cons cell will never merit allocation to a large object
- * page, so pick them off now, before we try to adjust the
- * object. */
- if ((lowtag_of((lispobj)addr) == LIST_POINTER_LOWTAG) &&
- !code_page_p(first_page)) {
- return;
- }