anchor.diff:    (debug-print-line "  timer-current: " (lapic-reg +lapic-reg-timer-current-count+))
     (debug-print-line "  timer-divide: " (lapic-reg +lapic-reg-timer-divide-configuration+)))
   
  -;; FIXME! This must be per-cpu.
  -(sys.int::defglobal *lapic-timer-active*)
  -
   (defun lapic-timer-active ()
     ;; Preemption timers are per-CPU...
  -  *lapic-timer-active*)
  +  (cpu-lapic-timer-active (local-cpu-object)))
   
   (defun preemption-timer-reset (time-remaining)
     "Configure the preemption timer to go off after TIME-REMAINING internal time units.
  
positive.code:       (cond (time-remaining
               (setf (lapic-reg +lapic-reg-timer-initial-count+)
                     (max 1 (lapic-timer-convert-from-internal-time-units time-remaining)))
               (setf *lapic-timer-active* t))
              (t
               (setf (lapic-reg +lapic-reg-timer-initial-count+) 0)
               (setf *lapic-timer-active* nil)))
        old-remaining)))
  
  (defun preemption-timer-remaining ()
  
negative.code:   (setf *cpus* '())
    (push-wired *bsp-cpu* *cpus*)
    (setf *n-up-cpus* 1)
    (hook-user-interrupt +lapic-vector-svr+ 'lapic-svr-handler)
    (hook-user-interrupt +lapic-vector-err+ 'lapic-error-handler)
    (hook-user-interrupt +lapic-vector-timer+ 'lapic-timer-handler)
  