anchor.diff:         (sys.int::gc)))
   
   (defun %allocate-from-general-area (tag data words)
  +  (log-allocation-profile-entry)
     (let ((gc-count 0))
       (tagbody
        OUTER-LOOP
  
positive.code:             (sys.int::%%assemble-value address sys.int::+tag-object+)))))))
  
  (defun %allocate-from-pinned-area (tag data words)
    (loop
       for i from 0 do
         (let ((result (%allocate-from-pinned-area-1 tag data words)))
  
negative.code:           (sys.int::%%assemble-value address sys.int::+tag-object+))))))
  
  (defun %allocate-from-wired-area (tag data words)
    (log-allocation-profile-entry)
    (loop
       for i from 0 do
         (let ((result (%allocate-from-wired-area-1 tag data words)))
  