anchor.diff:  (defconstant +lapic-reg-timer-current-count+ #x39)
   (defconstant +lapic-reg-timer-divide-configuration+ #x3E)
   
  +(defconstant +ipi-type-fixed+ 0)
  +(defconstant +ipi-type-lowest-priority+ 1)
  +(defconstant +ipi-type-smi+ 2)
  +(defconstant +ipi-type-nmi+ 4)
  +(defconstant +ipi-type-init+ 5)
  +(defconstant +ipi-type-sipi+ 6)
  +
   ;; Cold generator provided objects.
   (sys.int::defglobal sys.int::*interrupt-service-routines*)
   
  
positive.code:                                                               (ash type 8)
                                                                vector)))
  
  (defun broadcast-ipi (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))))
  
  (defun broadcast-wakeup-ipi ()
    (broadcast-ipi +wakeup-ipi-vector+))
  
  (defun wakeup-ipi-handler (interrupt-frame info)
    (declare (ignore info))
  
negative.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 +ipi-type-fixed+ +quiesce-ipi-vector+)
    (loop
       (when (eql *non-quiescent-cpus-remaining* 0)
         (return))
  