anchor.diff:      (incf total-used (truncate *general-area-bump* 8))
       (incf total (truncate *general-area-limit* 8))
       (when (eql verbosity t)
  -      (multiple-value-bind (n-allocated-objects allocated-object-sizes)
  -          (general-area-info)
  -        (print-n-allocated-objects-table n-allocated-objects allocated-object-sizes)))
  +      (multiple-value-bind (allocated-words total-words largest-free-space n-allocated-objects allocated-object-sizes allocated-classes)
  +          (area-info :general)
  +        (declare (ignore allocated-words total-words largest-free-space))
  +        (print-n-allocated-objects-table n-allocated-objects allocated-object-sizes allocated-classes)))
       (format t "Cons area: ~:D/~:D words used (~D%).~%"
               (truncate *cons-area-bump* 8) (truncate *cons-area-limit* 8)
               (truncate (* *cons-area-bump* 100) *cons-area-limit*))
       (incf total-used (truncate *cons-area-bump* 8))
       (incf total (truncate *cons-area-limit* 8))
  -    (multiple-value-bind (allocated-words total-words largest-free-space n-allocated-objects allocated-object-sizes)
  -        (pinned-area-info (* 2 1024 1024) *wired-area-bump*)
  +    (when (eql verbosity t)
  +      (multiple-value-bind (allocated-words total-words largest-free-space n-allocated-objects allocated-object-sizes allocated-classes)
  +          (area-info :cons)
  +        (declare (ignore allocated-words total-words largest-free-space))
  +        (print-n-allocated-objects-table n-allocated-objects allocated-object-sizes allocated-classes)))
  +    (multiple-value-bind (allocated-words total-words largest-free-space n-allocated-objects allocated-object-sizes allocated-classes)
  +        (area-info :wired)
         (format t "Wired area: ~:D/~:D words allocated (~D%).~%"
                 allocated-words total-words
                 (truncate (* allocated-words 100) total-words))
  
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)))
      (format t "Total ~:D/~:D words used (~D%).~%"
              total-used total
              (truncate (* total-used 100) total))
  
negative.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)))
      (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%).~%"
                allocated-words total-words
                (truncate (* allocated-words 100) total-words))
  