anchor.diff:                        (t
                          (when (and prev-fn
                                     (not (eql fn prev-fn)))
  -                         (cond ((eql rip (%object-ref-unsigned-byte-64 fn +function-entry-point+))
  +                         (cond ((or (eql rip (%object-ref-unsigned-byte-64 fn +function-entry-point+))
  +                                    (function-reference-p fn))
                                   (incf (gethash (cond ((eql fn *funcallable-instance-trampoline*)
                                                         (mezzano.supervisor:thread-state-rbx-value thread))
                                                        (t
  
positive.code:                    (cond ((eql fn *funcallable-instance-trampoline*)
                            (mezzano.supervisor:thread-state-rbx-value thread))
                           (t
                            (or (function-name fn) fn)))
                     (fetch-thread-function-arguments thread))
             (return))
           (when (not (eql fn prev-fn))
  
negative.code:                (+ sp (* i 8))
                 (memref-unsigned-byte-64 sp i)
                 (memref-unsigned-byte-64 sp (1+ i)))))
  
  (defun function-like-name (function)
    (typecase function
      (function (function-name function))
      (function-reference `(function-reference ,(function-reference-name function)))
      (t function)))
  
  (defun trace-execution (function &key full-dump run-forever (print-instructions t) trace-call-mode (trim-stepper-noise t) report-call-counts)
    "Trace the execution of FUNCTION.
  