anchor.diff:  (in-package :sys.int)
   
  -(defvar *scheduler-stack-group* nil)
   (defvar *current-process* nil)
  +(defvar *idle-process* nil)
   (defvar *run-queue* nil)
   
   (defstruct (process
  
positive.code:                          ,@body)
           (sys.int::process-disable ,x)))))
  
  (setf *scheduler-stack-group* (make-stack-group "scheduler"
                                                  :interruptable nil))
  (stack-group-preset *scheduler-stack-group* #'process-scheduler)
  (setf *current-process* (%make-process :name "Initial Process"
                                         :stack-group (current-stack-group)
                                         :run-reasons '(:initial)
                                         :whostate "RUN"))
  (process-consider-runnability *current-process*)
  
  (defconstant +spinlocked-locked-value+ 0)
  (defconstant +spinlocked-unlocked-value+ 1)
  
negative.code:                           (apply (first (process-initial-form process))
                                   (rest (process-initial-form process))))
                          (process-disable process)
                          (process-yield))))
  
  (defun process-run-reason (process object)
    (pushnew object (process-run-reasons process))
  