anchor.diff:  (sys.int::defglobal *general-allocation-count*)
   (sys.int::defglobal *cons-fast-path-hits*)
   (sys.int::defglobal *cons-allocation-count*)
  +
  +(sys.int::defglobal *bytes-consed*)
   
   (defvar *maximum-allocation-attempts* 5
     "GC this many times before giving up on an allocation.")
  
positive.code:         *general-fast-path-hits* 0
          *general-allocation-count* 0
          *cons-fast-path-hits* 0
          *cons-allocation-count* 0))
  
  (defun verify-freelist (start base end)
    (do ((freelist start (freelist-entry-next freelist))
  
negative.code:     ((nil)
       (cons car cdr))
      (:pinned
       (sys.int::%atomic-fixnum-add-symbol '*bytes-consed* 32)
       (%cons-in-pinned-area car cdr))
      (:wired
       (sys.int::%atomic-fixnum-add-symbol '*bytes-consed* 32)
       (%cons-in-wired-area car cdr))))
  
  #+x86-64
  