+#ifdef LISP_FEATURE_GENCGC
+ /* I don't know too much about the circumstances in which we could
+ * end up here. It may be that current_region_free_pointer is
+ * guaranteed to be relevant and we could skip these slightly
+ * paranoid checks. TRT would be to rid the code of
+ * current_region_foo completely - dan 2002.09.17 */
+ if((boxed_region.free_pointer < current_region_free_pointer) &&
+ (boxed_region.end_addr == current_region_end_addr))
+ boxed_region.free_pointer = current_region_free_pointer;