anchor.diff:                             (values
                               (cl:append (take start sequence)
                                          (nreverse subseqs))
  -                            i))))
  +                            (if (and remove-empty-subseqs
  +                                     count
  +                                     (zerop count))
  +                                (1+ i)
  +                                i)))))
           (apply #'split-sequence:split-sequence-if pred (coerce sequence 'list) args))))
   
   
  
positive.code:               when (funcall pred (funcall key x))
                  return x)))
    (:method (pred (sequence abstract-list) &rest args &key from-end (start 0) end (key #'identity))
      (if (or end from-end)
          (apply #'cl:find-if pred (coerce sequence 'list) args)
          (loop for seq = (drop start sequence)
                until (emptyp seq)
                for x = (pop seq)
                when (funcall pred (funcall key x))
                  return x))))
  
  (define-sequence-function-by-if find find-if)
  
  
negative.code:                 with len = (cl:length sequence1)
                  with seq = (drop start2 sequence2)
                  with i = 0
                  until (or (and end2
                                 (< end2 (+ i len)))
                            (emptyp seq))
                  for x = (pop seq)
                  when (and (funcall test (funcall key x) first-el)
                            (every (lambda (x y)
  