anchor.diff:                 (+ 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.
  
positive.code:                                        (write-char #\Space)
                                         (write (mezzano.supervisor:thread-state-rsp thread) :base 16)
                                         (write-char #\Space)
                                         (write (function-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-name fn) fn)))
                                                 (mapcar #'print-safely-to-string
                                                         (fetch-thread-function-arguments thread))))))
                                 (t
  
negative.code:                    (cond ((eql fn *funcallable-instance-trampoline*)
                            (mezzano.supervisor:thread-state-rbx-value thread))
                           (t
                            (function-like-name fn)))
                     (fetch-thread-function-arguments thread))
             (return))
           (when (not (eql fn prev-fn))
  