Method: (WORK-DONE MARK-AND-SWEEP-HEAP)

Source

(defmethod work-done ((heap mark-and-sweep-heap))
  (+ (nr-object-bytes-marked heap)
     (nr-heap-bytes-scanned heap)
     (nr-heap-bytes-sweeped heap)
     (nr-object-bytes-sweeped heap)))