anchor.diff:  the number of task-searching iterations done by the worker before
   sleeping."
     (check-type worker-count (integer 1 #.most-positive-fixnum))
  -  (let* ((bindings (nconc (copy-alist bindings)
  -                          (list (cons '*debugger-hook* *debugger-hook*))
  -                          (copy-alist *kernel-thread-locals*)))
  -         (worker-info (make-worker-info-instance
  -                       :bindings bindings
  -                       :context context
  -                       :name name))
  -         (workers (make-array worker-count))
  -         (kernel (make-kernel-instance
  -                  :scheduler (make-scheduler workers spin-count)
  -                  :workers workers
  -                  :workers-lock (make-lock)
  -                  :worker-info worker-info
  -                  :optimizer-data (make-optimizer-data *optimizer*))))
  -    (with-kernel-slots (workers worker-info) kernel
  -      (with-worker-info-slots (bindings) worker-info
  -        (push (cons '*kernel* kernel) bindings)
  -        (let1 index 0
  -          (map-into workers
  -                    (lambda ()
  -                      (make-worker kernel
  -                                   (prog1 index (incf index))
  -                                   (make-spin-queue))))
  -          (dosequence (worker workers)
  -            (handshake/to-worker worker)))))
  +  (let* ((workers (make-array worker-count))
  +         (kernel  (make-kernel-instance
  +                   :scheduler (make-scheduler workers spin-count)
  +                   :workers workers
  +                   :workers-lock (make-lock)
  +                   :worker-info (make-worker-info-instance
  +                                 :bindings bindings
  +                                 :context context
  +                                 :name name)
  +                   :optimizer-data (make-optimizer-data *optimizer*))))
  +    (dotimes (index worker-count)
  +      (setf (aref workers index) (make-worker kernel index (make-spin-queue))))
  +    (dosequence (worker workers)
  +      (handshake/to-worker worker))
       kernel))
   
   (defun check-kernel ()
  
positive.code:        context
         kernel))))
  
  #+lparallel.with-stealing-scheduler
  (defun %make-worker (index tasks)
    (make-worker-instance :thread nil :index index :tasks tasks))
  
negative.code:   nil)
  
  (defun kernel-bindings ()
    "Return the bindings passed to `make-kernel'."
    (check-kernel)
    (with-kernel-slots (worker-info) *kernel*
      (with-worker-info-slots (bindings) worker-info
  