anchor.diff:                     (cond ((eql fn *funcallable-instance-trampoline*)
                             (mezzano.supervisor:thread-state-rbx-value thread))
                            (t
  -                          (or (function-name fn) fn)))
  +                          (function-like-name fn)))
                      (fetch-thread-function-arguments thread))
              (return))
            (when (not (eql fn prev-fn))
  
positive.code:                (+ sp (* i 8))
                 (memref-unsigned-byte-64 sp i)
                 (memref-unsigned-byte-64 sp (1+ i)))))
  
  (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.
  
negative.code:                                        (write-char #\Space)
                                         (write (mezzano.supervisor:thread-state-rsp thread) :base 16)
                                         (write-char #\Space)
                                         (write (function-like-name fn))
                                         (terpri))
                                        (print-instructions
                                         (format t "Entered function ~S with arguments ~:A.~%"
                                                 (cond ((eql fn *funcallable-instance-trampoline*)
                                                        (mezzano.supervisor:thread-state-rbx-value thread))
                                                       (t
                                                        (or (function-like-name fn) fn)))
                                                 (mapcar #'print-safely-to-string
                                                         (fetch-thread-function-arguments thread))))))
                                 (t
  