anchor.diff:         (cond (inhibit-gc
                 (setf inhibit-gc nil))
                (t
  +              (when sys.int::*gc-enable-logging*
  +                (mezzano.supervisor:debug-print-line "Full GC due to pinned allocation."))
                 (sys.int::gc :full t)))))
   
   (defun %allocate-from-wired-area-unlocked (tag data words)
  
positive.code:            (incf grow-by (1- sys.int::+allocation-minimum-alignment+))
             (setf grow-by (logand (lognot (1- sys.int::+allocation-minimum-alignment+))
                                   grow-by))
             (mezzano.supervisor:without-footholds
               (mezzano.supervisor:inhibit-thread-pool-blocking-hijack
                 (mezzano.supervisor:with-mutex (*allocator-lock*)
  
negative.code:            (return result)))
         (when (> i *maximum-allocation-attempts*)
           (error 'storage-condition))
         (when sys.int::*gc-enable-logging*
           (mezzano.supervisor:debug-print-line "Full GC due to wired allocation."))
         (sys.int::gc :full t)))
  
  (defun with-live-objects-helper (&rest objects)
  