anchor.diff:  
   (defvar *pager-waiting-threads*)
   (defvar *pager-current-thread*)
  -(defvar *pager-cvar*)
   (defvar *pager-lock*)
   
   (defvar *disks*)
  
positive.code:             (setf *pager-current-thread* *pager-waiting-threads*
                    *pager-waiting-threads* (thread-%next *pager-current-thread*))
              (return))
            (condition-wait *pager-cvar* *pager-lock*)))
       ;; Page it in
       (when (not (wait-for-page (thread-wait-item *pager-current-thread*)))
         ;; TODO: Dispatch this to a debugger thread.
  
negative.code:           (thread-wait-item self) address
            (thread-%next self) *pager-waiting-threads*
            *pager-waiting-threads* self)
      (with-thread-lock (sys.int::*pager-thread*)
        (when (and (eql (thread-state sys.int::*pager-thread*) :sleeping)
                   (eql (thread-wait-item sys.int::*pager-thread*) '*pager-waiting-threads*))
          (setf (thread-state sys.int::*pager-thread*) :runnable)
          (with-symbol-spinlock (*global-thread-lock*)
            (push-run-queue sys.int::*pager-thread*))))
      (release-mutex *pager-lock*)
      (%reschedule-via-interrupt interrupt-frame)))
  
  