This was added 2017-05-03 (commit f1ccc4e447d93db2ea8d30f6a51a)
and seems misplaced.  I think it should go in packages/async/
and will move it there unless there are objections in the next
few days or so (or someone beats me to it).

-- 
Thien-Thi Nguyen -----------------------------------------------
 (defun responsep (query)
   (pcase (context query)
     (`(technical ,ml) (correctp ml))
     ...))                              748E A0E8 1CB8 A748 9BFA
--------------------------------------- 6CE4 6703 2224 4C80 7502