anchor.diff:                                                           (logior +block-map-present+
                                                                    +block-map-writable+
                                                                    +block-map-zero-fill+)))
  -      (mezzano.supervisor:panic "Insufficient space for garbage collection!"))
  +      (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+))
  
positive.code:        (verify-one current (+ current 0) gen)
         (verify-one current (+ current 8) gen)))
  
  (defun gc-minor-cycle ()
    "Collect gen0 into gen1."
    (gc-log "Minor GC.")
  
negative.code:                                                          (logior +block-map-present+
                                                                   +block-map-writable+
                                                                   +block-map-zero-fill+)))
        (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+)))
        (gc-insufficient-space))
      (setf *general-area-bump* 0
            *cons-area-bump* 0
            *scavenge-general-finger* 0
  