anchor.diff:    ;; The initial thread must finish with no values on the special stack.
     ;; This is required by INITIALIZE-INITIAL-THREAD.
     (let ((thread (current-thread)))
  -    (setf *world-stopper* nil)
  +    (%call-on-wired-stack-without-interrupts
  +     #'%resume-the-world nil)
       (%disable-interrupts)
       (acquire-global-thread-lock)
       (setf (thread-wait-item thread) "The start of a new world"
  
positive.code:   ;; Don't let the pager run until the paging disk has been found.
    (reset-ephemeral-thread sys.int::*pager-thread* #'pager-thread :sleeping :supervisor)
    (setf (thread-wait-item sys.int::*pager-thread*) "Waiting for paging disk")
    (reset-ephemeral-thread sys.int::*disk-io-thread* #'disk-thread :runnable :supervisor)
    (condition-notify *world-stop-cvar* t))
  
  (defun wake-thread (thread)
    "Wake a sleeping thread."
  
negative.code:       (panic "Stopping world while pseudo-atomic!"))
      (ensure-interrupts-enabled)
      (inhibit-thread-pool-blocking-hijack
       (%call-on-wired-stack-without-interrupts #'%stop-the-world nil)
       (unwind-protect
            (progn
              (quiesce-cpus-for-world-stop)
              (funcall thunk))
         (%call-on-wired-stack-without-interrupts #'%resume-the-world nil)
         (broadcast-wakeup-ipi)))))
  
  (defmacro with-world-stopped (&body body)
    `(call-with-world-stopped (dx-lambda () ,@body)))
  