anchor.diff:    (let ((words (1+ size)))
       (when (oddp words)
         (incf words))
  +    (sys.int::%atomic-fixnum-add-symbol '*bytes-consed* (* words 8))
       (ecase area
         ((nil)
          (%allocate-from-general-area tag data words))
  
positive.code: (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.")
  
negative.code:         *general-fast-path-hits* 0
          *general-allocation-count* 0
          *cons-fast-path-hits* 0
          *cons-allocation-count* 0
          *bytes-consed* 0))
  
  (defun verify-freelist (start base end)
    (do ((freelist start (freelist-entry-next freelist))
  