anchor.diff:            (setq user-nsec-total (- (papi-get-virt-nsec) user-nsec-total))
             (papi-accum handle mutator-values)))
         (papi-stop handle (null-pointer))
  -      (setq system-nsec-total (- (get-resource-usage) system-nsec-total))
  +      (multiple-value-bind (stime reclaims faults vcsw ivcsw)
  +          (get-resource-usage)
  +        (setq system-usec-total (- stime system-usec-total))
  +        (setq page-reclaims-total (- reclaims page-reclaims-total))
  +        (setq page-faults-total (- faults page-faults-total))
  +        (setq vcsw-total (- vcsw vcsw-total))
  +        (setq ivcsw-total (- ivcsw ivcsw-total)))
         ;; Aggregate measurements.
         (let ((hw-event-results
                (loop for event in (events-of event-set) and i from 0 collect
  
positive.code:              ((< n 1000000) (format nil "~,2F us" (/ n 1000)))
               ((< n 1000000000) (format nil "~,2F ms" (/ n 1000000)))
               (t (format nil "~,3F s" (/ n 1000000000)))))
      (t
         (cond ((>= n 1000000000) (format nil "~13E" n))
               ((integerp n) (format nil "~:D" n))
  
negative.code: (defun num-hardware-counters ()
    (papi-num-counters))
  
  ;;;; Non-PAPI Events
  
  (declaim (inline papi-get-real-nsec papi-get-virt-nsec))
  
  