anchor.diff:                ;; Return address should be the first entry on the stack.
                 (memref-unsigned-byte-64 stack-pointer (1- layout-length))))))))
   
  -(defun map-thread-backtrace (thread fn)
  +(defun map-thread-backtrace (thread function)
     (check-type thread mezzano.supervisor:thread)
     (multiple-value-bind (stack-pointer frame-pointer return-address)
         (cond ((mezzano.supervisor:thread-full-save-p thread)
  
positive.code:       (ignore-errors
          (mezzano.supervisor::resume-thread thread)))))
  
  (defun print-safely-to-string (obj)
    (handler-case
        (format nil "~S" obj)
  
negative.code: (defun backtrace-thread (thread)
    (map-thread-backtrace
     thread
     (lambda (stack-pointer frame-pointer return-address fn fn-offset)
       (format t "~X ~X ~X ~S+~D~%" stack-pointer frame-pointer return-address fn fn-offset))))
  
  (defun dump-thread-stack (thread &optional limit)
    (loop
  