anchor.diff:  (sys.int::defglobal *allocator-lock*)
   (sys.int::defglobal *general-area-expansion-granularity*)
   (sys.int::defglobal *cons-area-expansion-granularity*)
  +
  +(sys.int::defglobal *general-fast-path-hits*)
  +(sys.int::defglobal *general-allocation-count*)
  +(sys.int::defglobal *cons-fast-path-hits*)
  +(sys.int::defglobal *cons-allocation-count*)
   
   (defvar *maximum-allocation-attempts* 5
     "GC this many times before giving up on an allocation.")
  
positive.code:         *enable-allocation-profiling* nil
          *allocator-lock* (mezzano.supervisor:make-mutex "Allocator")
          *general-area-expansion-granularity* (* 128 1024 1024)
          *cons-area-expansion-granularity* (* 128 1024 1024)))
  
  (defun verify-freelist (start base end)
    (do ((freelist start (freelist-entry-next freelist))
  
negative.code:   ;; Check argument count.
    (sys.lap-x86:cmp64 :rcx #.(ash 3 #.sys.int::+n-fixnum-bits+))
    (sys.lap-x86:jne SLOW-PATH-INTERRUPTS-ENABLED)
    ;; Update allocation meter.
    (sys.lap-x86:mov64 :rbx (:constant *general-allocation-count*))
    (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+))
    ;; Assemble the final header value in RDI.
    (sys.lap-x86:mov64 :rdi :r9)
    (sys.lap-x86:shl64 :rdi #.(- sys.int::+object-data-shift+ sys.int::+n-fixnum-bits+))
  