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