anchor.diff:                            (apply (first (process-initial-form process))
                                    (rest (process-initial-form process))))
                           (process-disable process)
  -                        (switch-to-stack-group *scheduler-stack-group* t))))
  +                        (process-yield))))
   
   (defun process-run-reason (process object)
     (pushnew object (process-run-reasons process))
  
positive.code: (in-package :sys.int)
  
  (defvar *scheduler-stack-group* nil)
  (defvar *current-process* nil)
  (defvar *run-queue* nil)
  
  (defstruct (process
  
negative.code: 
  (defun process-wait (reason function &rest arguments)
    (declare (dynamic-extent arguments))
    (setf (process-whostate *current-process*) reason
          (process-wait-function *current-process*) function
          (process-wait-argument-list *current-process*) arguments)
    (process-yield))
  
  ;; todo, Fix this...
  (defun process-wait-with-timeout (reason timeout function &rest arguments)
  