anchor.diff:             (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)
  
positive.code:        (when (> gc-count mezzano.runtime::*maximum-allocation-attempts*)
           (error 'storage-condition))
         (incf gc-count)
         (debug-print-line "No memory for stack, calling GC.")
         (sys.int::gc :full t)
         (go RETRY))))
  
  
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 cons allocation."))
         (sys.int::gc :full (not (eql gc-count 1)))
         (go OUTER-LOOP))))
  
  