anchor.diff:               (%reschedule-via-wired-stack sp fp))
               (%disable-interrupts)
               (acquire-place-spinlock (sys.int::symbol-global-value '*pager-lock*)))))
  -     (let ((start-time (get-high-precision-timer)))
  -       (cond ((eql (thread-state *pager-current-thread*) :pager-request)
  -              (handle-pager-request))
  -             ;; Page it in
  -             ((wait-for-page (thread-wait-item *pager-current-thread*))
  -              ;; Release the thread.
  -              (wake-thread *pager-current-thread*))
  -             ;; TODO: Shouldn't panic at all, this should be dispatched to a debugger thread.
  -             ((or (not (boundp '*panic-on-unhandled-paging-requests*))
  -                  *panic-on-unhandled-paging-requests*)
  -              (let ((message (list "page fault on unmapped page " (thread-wait-item *pager-current-thread*) " in thread " *pager-current-thread*)))
  -                (declare (dynamic-extent message))
  -                (panic-1 message (lambda ()
  -                                   (dump-thread-saved-pc *pager-current-thread*)
  -                                   (panic-print-backtrace (thread-frame-pointer *pager-current-thread*))
  -                                   (debug-print-line "-------")))))
  -             (t
  -              (debug-print-line "Thread " *pager-current-thread* " faulted on address " (thread-wait-item *pager-current-thread*))
  -              (panic-print-backtrace (thread-frame-pointer *pager-current-thread*))))
  -       (setf *pager-current-thread* nil)
  -       ;; Update meter.
  -       (sys.int::%atomic-fixnum-add-symbol
  -        '*pager-meter* (high-precision-time-units-to-internal-time-units
  -                        (- (get-high-precision-timer) start-time))))))
  +     (cond ((eql (thread-state *pager-current-thread*) :pager-request)
  +            (handle-pager-request))
  +           ;; Page it in
  +           ((wait-for-page (thread-wait-item *pager-current-thread*))
  +            ;; Release the thread.
  +            (wake-thread *pager-current-thread*))
  +           ;; TODO: Shouldn't panic at all, this should be dispatched to a debugger thread.
  +           ((or (not (boundp '*panic-on-unhandled-paging-requests*))
  +                *panic-on-unhandled-paging-requests*)
  +            (let ((message (list "page fault on unmapped page " (thread-wait-item *pager-current-thread*) " in thread " *pager-current-thread*)))
  +              (declare (dynamic-extent message))
  +              (panic-1 message (lambda ()
  +                                 (dump-thread-saved-pc *pager-current-thread*)
  +                                 (panic-print-backtrace (thread-frame-pointer *pager-current-thread*))
  +                                 (debug-print-line "-------")))))
  +           (t
  +            (debug-print-line "Thread " *pager-current-thread* " faulted on address " (thread-wait-item *pager-current-thread*))
  +            (panic-print-backtrace (thread-frame-pointer *pager-current-thread*))))
  +     (setf *pager-current-thread* nil)))
  
positive.code: (sys.int::defglobal *pager-lazy-block-allocation-enabled*)
  
  (sys.int::defglobal *store-fudge-factor*)
  
  (sys.int::defglobal *pager-meter*)
  
  (defun pager-log (&rest things)
    (declare (dynamic-extent things))
  
negative.code:           *pager-current-thread* nil
            *pager-lock* (place-spinlock-initializer)
            *pager-fast-path-enabled* t
            *pager-lazy-block-allocation-enabled* t))
    (setf *page-replacement-list-lock* (place-spinlock-initializer)
          *page-replacement-list-head* nil
          *page-replacement-list-tail* nil)
  