anchor.diff:             "MAP-GROUP-REDUCE"))
   
   (defpackage "PARALLEL-IMPL"
  -  (:use "CL")
  +  (:use "CL" "SB-EXT")
     (:import-from "PARALLEL" "PROMISE" "PROMISE-VALUE"
                   "FUTURE" "FUTURE-VALUE"))
   
  
positive.code:                                (declare (ignorable ,var))
                                 (progn ,result))))))))
  
  (defun parallel:map (type function arg &key (wait t))
    (let* ((arg (coerce arg 'simple-vector))
           (function (if (functionp function)
  
negative.code:                                   &key (group-test #'eql)
                                         group-by
                                         (wait t)
                                         (master-table nil))
    (let* ((arg     (coerce sequence 'simple-vector))
           (nthread (work-queue:worker-count
                     (work-queue:current-queue
  