anchor.diff:        (with-mutex (*world-stop-lock*)
           ;; Release the dogs!
           (setf *world-stopper* nil)
  -        (condition-notify *world-stop-cvar*)))))
  +        (condition-notify *world-stop-cvar* t)))))
   
   (defmacro with-world-stopped (&body body)
     `(call-with-world-stopped (dx-lambda () ,@body)))
  
positive.code:          (funcall thunk))
      (with-mutex (*world-stop-lock*)
        (decf *pseudo-atomic-thread-count*)
        (condition-notify *world-stop-cvar*))))
  
  (defmacro with-pseudo-atomic (&body body)
    `(call-with-pseudo-atomic (dx-lambda () ,@body)))
  
negative.code:   (reset-ephemeral-thread sys.int::*snapshot-thread* #'snapshot-thread :sleeping)
    (reset-ephemeral-thread sys.int::*pager-thread* #'pager-thread :runnable)
    (reset-ephemeral-thread sys.int::*disk-io-thread* #'disk-thread :runnable)
    (condition-notify *world-stop-cvar* t))
  
  (defun wake-thread (thread)
    "Wake a sleeping thread."
  