anchor.diff:                (sys.int::gc :full t)))))
   
   (defun %allocate-from-wired-area-unlocked (tag data words)
  -  (when *paranoid-allocation*
  -    (verify-freelist sys.int::*wired-area-freelist* sys.int::*wired-area-base* sys.int::*wired-area-bump*))
     (let ((address (%allocate-from-freelist-area tag data words sys.int::*wired-area-free-bins*)))
       (when address
         (sys.int::%%assemble-value address sys.int::+tag-object+))))
  
positive.code:     (mezzano.supervisor:inhibit-thread-pool-blocking-hijack
        (mezzano.supervisor:with-mutex (*allocator-lock*)
          (mezzano.supervisor:with-pseudo-atomic
            (when *paranoid-allocation*
              (verify-freelist sys.int::*pinned-area-freelist* sys.int::*pinned-area-base* sys.int::*pinned-area-bump*))
            (let ((address (%allocate-from-freelist-area tag data words sys.int::*pinned-area-free-bins*)))
              (when address
                (sys.int::%%assemble-value address sys.int::+tag-object+))))))))
  
negative.code:         *allocator-lock* (mezzano.supervisor:make-mutex "Allocator")
          *allocation-fudge* (* 8 1024 1024)
          sys.int::*generation-size-ratio* 2))
  
  (defun set-allocated-object-header (address tag data mark-bit)
    ;; Be careful to avoid bignum consing here. Some functions can have a
  