anchor.diff:            (thread-global-next sys.int::*pager-thread*) sys.int::*disk-io-thread*
             (thread-global-prev sys.int::*pager-thread*) sys.int::*snapshot-thread*
             (thread-global-next sys.int::*disk-io-thread*) nil
  -          (thread-global-prev sys.int::*disk-io-thread*) sys.int::*pager-thread*))
  +          (thread-global-prev sys.int::*disk-io-thread*) sys.int::*pager-thread*)
  +    (setf *default-stack-size* (* 256 1024)))
     (reset-ephemeral-thread sys.int::*bsp-idle-thread* #'idle-thread :sleeping nil)
     (reset-ephemeral-thread sys.int::*snapshot-thread* #'snapshot-thread :sleeping :supervisor)
     (reset-ephemeral-thread sys.int::*pager-thread* #'pager-thread :runnable :supervisor)
  
positive.code: 
  ;;; Stuff.
  
  (defun make-thread (function &key name initial-bindings (stack-size (* 256 1024)) (priority :normal))
    (declare (sys.c::closure-allocation :wired))
    (check-type function (or function symbol))
    (check-type priority (member :supervisor :normal :low))
  
negative.code: (sys.int::defglobal *world-stop-pending*)
  (sys.int::defglobal *world-stopper*)
  (sys.int::defglobal *pseudo-atomic-thread-count*)
  
  (sys.int::defglobal *default-stack-size*)
  
  (defvar *pseudo-atomic* nil)
  
  