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:            (return result)))
         (when (> i *maximum-allocation-attempts*)
           (error 'storage-condition))
         (sys.int::gc :full t)))
  
  (defun with-live-objects-helper (&rest objects)
  
negative.code:        (when (> gc-count *maximum-allocation-attempts*)
           (cerror "Retry allocation" 'storage-condition))
         (incf gc-count)
         (when sys.int::*gc-enable-logging*
           (mezzano.supervisor:debug-print-line
            (if (eql gc-count 1) "" "Full ")
            "GC due to general allocation."))
         (sys.int::gc :full (not (eql gc-count 1)))
         (go OUTER-LOOP))))
  
  