anchor.diff:        (incf total-used allocated-words)
         (incf total total-words)
         (when (eql verbosity t)
  -        (print-n-allocated-objects-table n-allocated-objects allocated-object-sizes allocated-classes)))
  +        (print-n-allocated-objects-table n-allocated-objects allocated-object-sizes allocated-classes)
  +        (print-fragment-counts (pinned-area-fragment-counts :wired))))
       (multiple-value-bind (allocated-words total-words largest-free-space n-allocated-objects allocated-object-sizes allocated-classes)
           (area-info :pinned)
         (format t "Pinned area: ~:D/~:D words allocated (~D%).~%"
  
positive.code:       (incf total-used allocated-words)
        (incf total total-words)
        (when (eql verbosity t)
          (print-n-allocated-objects-table n-allocated-objects allocated-object-sizes allocated-classes)))
      (format t "Total ~:D/~:D words used (~D%).~%"
              total-used total
              (truncate (* total-used 100) total))
  
negative.code:                   (vector-push 1 allocated-classes))))
        (walk-area area
                   (lambda (object address size)
                     (declare (ignore address))
                     (let ((tag (if (consp object)
                                    +object-tag-cons+
                                    (%object-tag object))))
  