anchor.diff:           (funcall thunk))
       (with-mutex (*world-stop-lock*)
         (decf *pseudo-atomic-thread-count*)
  -      (condition-notify *world-stop-cvar*))))
  +      (condition-notify *world-stop-cvar* t))))
   
   (defmacro with-pseudo-atomic (&body body)
     `(call-with-pseudo-atomic (dx-lambda () ,@body)))
  
positive.code:       (with-mutex (*world-stop-lock*)
          ;; Release the dogs!
          (setf *world-stopper* nil)
          (condition-notify *world-stop-cvar*)))))
  
  (defmacro with-world-stopped (&body body)
    `(call-with-world-stopped (dx-lambda () ,@body)))
  
negative.code:     (setf (fifo-head fifo) 0
            (fifo-tail fifo) 0)
      ;; Signal the cvar to wake any waiting FIFO-PUSH calls.
      (condition-notify (fifo-cv fifo) t)))
  