anchor.diff:                                                                (ash type 8)
                                                                 vector)))
   
  -(defun broadcast-ipi (vector &optional including-self)
  +(defun broadcast-ipi (type vector &optional including-self)
     (dolist (cpu *cpus*)
       (when (and (eql (cpu-state cpu) :online)
                  (or including-self
                      (not (eql cpu (local-cpu-object)))))
  -      (send-ipi (cpu-apic-id cpu) 0 vector))))
  +      (send-ipi (cpu-apic-id cpu) type vector))))
   
   (defun broadcast-wakeup-ipi ()
  -  (broadcast-ipi +wakeup-ipi-vector+))
  +  (broadcast-ipi +ipi-type-fixed+ +wakeup-ipi-vector+))
   
   (defun wakeup-ipi-handler (interrupt-frame info)
     (declare (ignore info))
  
positive.code: (defun quiesce-cpus-for-world-stop ()
    ;; Bring all CPUs to a consistent state to stop the world.
    (setf *non-quiescent-cpus-remaining* (1- *n-up-cpus*))
    (broadcast-ipi +quiesce-ipi-vector+)
    (loop
       (when (eql *non-quiescent-cpus-remaining* 0)
         (return))
  
negative.code:         (cpu-info-vector cpu))
    ;; FIXME: Delay after sending.
    (let ((boot-vector (ash +ap-trampoline-physical-address+ -12)))
      (send-ipi (cpu-apic-id cpu) +ipi-type-init+ 0)
      (send-ipi (cpu-apic-id cpu) +ipi-type-sipi+ boot-vector)
      (send-ipi (cpu-apic-id cpu) +ipi-type-sipi+ boot-vector))
    ;; Wait for the CPU to come up.
    (let ((start-time (get-internal-run-time)))
      (loop
  