anchor.diff:                 expansion
                  sys.int::+block-map-zero-fill+)
                 (incf sys.int::*cons-area-limit* expansion))
  -            (go INNER-LOOP)))
  -     DO-GC
  -       ;; Must occur outside the locks.
  -       (sys.int::gc)
  -       (go OUTER-LOOP))))
  +            (go INNER-LOOP))))
  +   DO-GC
  +     ;; Must occur outside the locks.
  +     (sys.int::gc)
  +     (go OUTER-LOOP)))
   
   (defun sys.int::make-simple-vector (size &optional area)
     (%allocate-object sys.int::+object-tag-array-t+ size size area))
  
positive.code:       (incf words))
      (ecase area
        ((nil)
         (mezzano.supervisor:without-footholds
           (tagbody
            OUTER-LOOP
              (mezzano.supervisor:with-mutex (*allocator-lock*)
                (tagbody
                 INNER-LOOP
                   (return-from %allocate-object
                     (mezzano.supervisor:with-pseudo-atomic
                       (when (> (+ sys.int::*general-area-bump* (* words 8)) sys.int::*general-area-limit*)
                         (go EXPAND-AREA))
                       ;; Enough size, allocate here.
                       (let ((addr (logior (ash sys.int::+address-tag-general+ sys.int::+address-tag-shift+)
                                           sys.int::*general-area-bump*
  
negative.code: (defun slow-cons (car cdr)
    (when sys.int::*gc-in-progress*
      (mezzano.supervisor:panic "Allocating during GC!"))
    (tagbody
     OUTER-LOOP
       (mezzano.supervisor:without-footholds
         (mezzano.supervisor:with-mutex (*allocator-lock*)
           (tagbody
            INNER-LOOP
              (return-from slow-cons
                (mezzano.supervisor:with-pseudo-atomic
                    (when (> (+ sys.int::*cons-area-bump* 16) sys.int::*cons-area-limit*)
                      (go EXPAND-AREA))
                  ;; Enough size, allocate here.
                  (let* ((addr (logior (ash sys.int::+address-tag-cons+ sys.int::+address-tag-shift+)
                                       sys.int::*cons-area-bump*
  