anchor.diff:  
   #-x86-64
   (defun %allocate-from-general-area (tag data words)
  +  (sys.int::%atomic-fixnum-add-symbol '*general-allocation-count* 1)
     (%slow-allocate-from-general-area tag data words))
   
   (defun %slow-allocate-from-general-area (tag data words)
  
positive.code: (sys.int::defglobal *allocator-lock*)
  (sys.int::defglobal *general-area-expansion-granularity*)
  (sys.int::defglobal *cons-area-expansion-granularity*)
  
  (defvar *maximum-allocation-attempts* 5
    "GC this many times before giving up on an allocation.")
  
negative.code:   (:gc :no-frame)
    ;; Done. Return everything.
    (sys.lap-x86:mov64 :r8 :rbx)
    (sys.lap-x86:mov64 :rbx (:constant *general-fast-path-hits*))
    (sys.lap-x86:mov64 :rbx (:object :rbx #.sys.int::+symbol-value+))
    (sys.lap-x86:add64 (:object :rbx #.sys.int::+symbol-value-cell-value+) #.(ash 1 sys.int::+n-fixnum-bits+))
    (sys.lap-x86:mov32 :ecx #.(ash 1 #.sys.int::+n-fixnum-bits+))
    (sys.lap-x86:ret)
    SLOW-PATH
  