anchor.diff:    (self  0   :type address)
     (cumul 0   :type address)
     (known nil :type boolean)
  -  name)
  +  fn-name
  +  obj-name)
   
   (defun analize (samples-name procmap-name)
     "Processes output of C runtime library and returns a report"
  
positive.code:         report)
      
      (labels ((populate-report (address &key on-top-p)
                 (multiple-value-bind (id name known)
                     (address=>func-name procmap address)
                   (let ((rep-entry (find id report
                                          :test #'(lambda (id rep-entry) (= id (report-entry-id rep-entry))))))
  
negative.code:                       (push (make-report-entry :id id
                                                 :self (if on-top-p 1 0)
                                                 :cumul 1
                                                 :fn-name fn-name
                                                 :obj-name obj-name
                                                 :known known)
                              report))))))
               
  