anchor.diff:                           (callee-samples (cdr sample)))
                        (multiple-value-bind (caller-id caller-obj-name caller-name)
                            (address=>func-name procmap caller-sample)
  +                       (if (not caller-name) (setq caller-id *unknown-id*))
   
  -                       (let ((caller-subtree (find caller-id subgraph :key (lambda (subtree)
  -                                                                                   (graph-node-id (car subtree))))))
  +                       (let ((caller-subtree (find caller-id subgraph
  +                                                   :key (lambda (subtree)
  +                                                          (graph-node-id (car subtree))))))
                                  (if caller-subtree
                                      (let ((caller (car caller-subtree)))
                                        (incf (graph-node-cumul caller))
  
positive.code:     (write-string "ROOT[shape=\"rectangle\"]" stream)
      (terpri stream)
      (print-callees :root call-graph))
    (format stream "}~%"))
  
negative.code:   (labels ((collect-known (known subtree)
               (let ((caller  (car subtree))
                     (callees (strip-unknown (cdr subtree))))
                 (if (/= (graph-node-id caller) *unknown-id*)
                     (cons (cons caller callees) known)
                     (append callees known)))))
      (if call-graph
  