anchor.diff:  
   (import-now alexandria:simple-style-warning
               lparallel.util::symbolicate/package
  +            lparallel.kernel::*worker*
  +            lparallel.kernel::*make-limiter-data*
               lparallel.kernel::kernel
               lparallel.kernel::unwrap-result
               lparallel.kernel::wrap-error
               lparallel.kernel::make-task
               lparallel.kernel::make-task-fn
               lparallel.kernel::submit-raw-task
  -            lparallel.kernel::%kernel-worker-count
               lparallel.kernel::accept-task-p
               lparallel.kernel::limiter-data
               lparallel.kernel::with-limiter-slots
  -            lparallel.kernel::*make-limiter-data*
  -            lparallel.kernel::*worker*
               lparallel.kernel::steal-work
  -            lparallel.kernel::*kernel*
               lparallel.kernel::call-with-task-handler)
   
   ;;;; spin lock
  
positive.code: 
  (defconstant +no-result+ 'no-result)
  
  (defmacro result (future) `(car ,future))
  (defmacro future-fn (future) `(cdr ,future))
  
  (defun/inline %make-future (fn)
    (cons +no-result+ fn))
  
  (defun make-future (kernel fn)
    (declare #.*full-optimize*)
    (let ((future (%make-future fn)))
      (submit-raw-task
  
negative.code: 
  (defmacro future (kernel &body body)
    `(make-future ,kernel (make-task-fn ,@body)))
  
  ;;;; declarationp
  
  