anchor.diff:                               recurred-result)
                              flow
                              (instantly (value)
  +                             (capture-loop flow)
                                (setf recurred-result value)
                                (unless recurred-p
                                  (setf recurred-p t)))
  
positive.code:   (declare (type function test))
    (let (looped recurred-result recurred-p)
      (setf looped (->> (value)
                     (capture-loop flow)
                     (unless recurred-p
                       (setf recurred-result value))
                     (if (funcall test)
  
negative.code:                               (setf *recursive-flow* nil
                                      *recursive-task* nil)
                                (go start))
                              ;; unwind stack until we hit needed task
                              (throw 'recursive-task recursive-task))))))
                 (traps-masking-task ()
                   (claw:with-float-traps-masked ()
  