anchor.diff:  (defun initialize-initial-thread ()
     "Called very early after boot to reset the initial thread."
     (let* ((thread (current-thread)))
  +    (setf *world-stopper* thread)
       (setf (thread-state thread) :active)))
   
   (defun finish-initial-thread ()
  
positive.code:   (setf (sys.int::%array-like-ref-t thread +thread-lock+) :unlocked))
  
  (defun push-run-queue (thread)
    (cond ((null *thread-run-queue-head*)
           (setf *thread-run-queue-head* thread
                 *thread-run-queue-tail* thread)
  
negative.code:     ;; FIXME: Patch up initial thread's stack objects.
      (setf *global-thread-lock* :unlocked)
      (setf *thread-run-queue-head* nil)
      (setf *thread-run-queue-tail* nil))
    ;; The idle thread starts off with an empty stack. Fix it. (FIXME: Use the right stack pointer.)
    (let ((rsp (thread-stack-pointer sys.int::*bsp-idle-thread*)))
      ;; Function to call.
      (setf (sys.int::memref-t (decf rsp 8) 0) #'idle-thread)
      ;; Trampoline for switch threads.
      (setf (sys.int::memref-signed-byte-64 (decf rsp 8) 0) (sys.int::%array-like-ref-signed-byte-64 #'%%simple-thread-entry-trampoline 0))
      ;; Saved rbp.
      (setf (sys.int::memref-signed-byte-64 (decf rsp 8) 0) 0)
      (setf (thread-stack-pointer sys.int::*bsp-idle-thread*) rsp))
    ;; Reset the snapshot thread every boot. (FIXME: Use the right stack pointer.)
    (let ((rsp (thread-stack-pointer sys.int::*snapshot-thread*)))
      ;; Function to call.
      (setf (sys.int::memref-t (decf rsp 8) 0) #'snapshot-thread)
      ;; Trampoline for switch threads.
      (setf (sys.int::memref-signed-byte-64 (decf rsp 8) 0) (sys.int::%array-like-ref-signed-byte-64 #'%%simple-thread-entry-trampoline 0))
      ;; Saved rbp.
      (setf (sys.int::memref-signed-byte-64 (decf rsp 8) 0) 0)
      (setf (thread-stack-pointer sys.int::*snapshot-thread*) rsp)))
  
  (defun thread-yield ()
    (let ((current (current-thread)))
  