anchor.diff:  (defun %allocate-object (tag data size area)
     (when sys.int::*gc-in-progress*
       (mezzano.supervisor:panic "Allocating during GC!"))
  -  (log-allocation-profile-entry)
     (let ((words (1+ size)))
       (when (oddp words)
         (incf words))
  
positive.code:        (sys.int::gc)))
  
  (defun %allocate-from-general-area (tag data words)
    (let ((gc-count 0))
      (tagbody
       OUTER-LOOP
  
negative.code:             (sys.int::%%assemble-value address sys.int::+tag-object+)))))))
  
  (defun %allocate-from-pinned-area (tag data words)
    (log-allocation-profile-entry)
    (loop
       for i from 0 do
         (let ((result (%allocate-from-pinned-area-1 tag data words)))
  