anchor.diff:  (defmethod print-object ((kernel kernel) stream)
     (with-kernel-slots (workers worker-info) kernel
       (with-worker-info-slots (name) worker-info
  -      (let1 plist (list :worker-count (length workers) :worker-name name)
  +      (let1 plist (list :name name
  +                        :worker-count (length workers))
           #+lparallel.with-stealing-scheduler
           (with-scheduler-slots (spin-count) (scheduler kernel)
             (setf plist (append plist (list :spin-count spin-count))))
  
positive.code: 
  (defun make-kernel (worker-count
                      &key
                      (bindings `((*standard-output* . ,*standard-output*)
                                  (*error-output*    . ,*error-output*)))
                      (context #'funcall)
                      (name "lparallel-worker")
                      (spin-count *kernel-spin-count*))
    "Create a kernel with `worker-count' number of worker threads.
  
  `bindings' is an alist for establishing thread-local variables inside
  worker threads (see bordeaux-threads for more information). By default
  
negative.code:   nil)
  
  (defun kernel-bindings ()
    "Returns an alist of thread-local special variable bindings.
  A new thread which uses the current kernel should be given these
  bindings (see bordeaux-threads:*default-special-bindings*)."
    (check-kernel)
  