anchor.diff:                                                           (logior +block-map-present+
                                                                    +block-map-writable+
                                                                    +block-map-zero-fill+)))
  -      (mezzano.supervisor:panic "Insufficient space for garbage collection!"))
  +      (gc-insufficient-space))
       (when (not (mezzano.supervisor:allocate-memory-range (logior *dynamic-mark-bit*
                                                                    (ash +address-tag-cons+ +address-tag-shift+))
                                                            maximum-cons-limit
                                                            (logior +block-map-present+
                                                                    +block-map-writable+
                                                                    +block-map-zero-fill+)))
  -      (mezzano.supervisor:panic "Insufficient space for garbage collection!"))
  +      (gc-insufficient-space))
       (setf *general-area-bump* 0
             *cons-area-bump* 0
             *scavenge-general-finger* 0
  
positive.code:          (gc-minor-cycle))
          (t
           (gc-major-cycle)))
    (incf *gc-epoch*)
    (gc-log "GC complete")
    (mezzano.supervisor::set-gc-light nil))
  
negative.code:                                                          (logior +block-map-present+
                                                                   +block-map-writable+
                                                                   +block-map-zero-fill+)))
        (gc-insufficient-space))
      ;; Disable dirty bit tracking on gen1.
      (mezzano.supervisor:protect-memory-range (logior (dpb +address-generation-1+ +address-generation+ 0)
                                                       (ash +address-tag-general+ +address-tag-shift+))
  