anchor.diff:            *pager-current-thread* nil
             *pager-lock* (place-spinlock-initializer)
             *pager-fast-path-enabled* t
  -          *pager-lazy-block-allocation-enabled* t
  -          *pager-meter* 0))
  +          *pager-lazy-block-allocation-enabled* t))
     (setf *page-replacement-list-lock* (place-spinlock-initializer)
           *page-replacement-list-head* nil
           *page-replacement-list-tail* 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:              (%reschedule-via-wired-stack sp fp))
              (%disable-interrupts)
              (acquire-place-spinlock (sys.int::symbol-global-value '*pager-lock*)))))
       (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)))
  