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 :pinned))))
       (format t "Total ~:D/~:D words used (~D%).~%"
               total-used total
               (truncate (* total-used 100) total))
  
positive.code:                         (add-class (%struct-slot object 0))))))))
      (values allocated-words total-words largest-free-space
              n-allocated-objects allocated-objects-sizes allocated-classes)))
  
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))))
  