anchor.diff:             seq)
       (? with-index
          (let idx 0
  -         (dolist (i !)
  -           (& (funcall pred i idx)
  -              (return i))
  +         (adolist !
  +           (& (funcall pred ! idx)
  +              (return !))
              (++! idx)))
  -       (dolist (i !)
  -         (& (funcall pred i)
  -            (return i))))))
  +       (adolist !
  +         (& (funcall pred !)
  +            (return !))))))
   
   (defun %find-if-sequence (pred seq start end from-end with-index)
     (& seq (integer< 0 (length seq))
  
positive.code:            ((? from-end
  	           (integer< i e)
  			   (integer> i e)))
  	     (let elm (elt seq i)
             (& (apply pred (cons elm (& with-index (list i))))
  		      (return elm)))))))
   
  (defun find-if (pred seq &key (start nil) (end nil) (from-end nil) (with-index nil))
    (? (not (atom seq) start end)
  
negative.code: 
  (defun every (pred &rest seqs)
    (dolist (seq seqs t)
      (adotimes ((length seq))
        (| (funcall pred (elt seq !))
           (return-from every nil)))))
  
  (define-test "EVERY works"
  