anchor.diff:    (count-if (complement predicate) sequence :key key))
   
   (defun find-if (predicate sequence &key key); (start 0) end from-end
  -  (unless key (setf key #'identity))
  +  (unless key (setf key 'identity))
     (if (listp sequence)
         (dolist (e sequence)
   	(when (funcall predicate (funcall key e))
  
positive.code:   (when (and test test-not)
      (error "Both :test and :test-not specified"))
    (when test-not (setf test (complement test-not)))
    (unless test (setf test #'eql))
    (remove-if (lambda (x) (funcall test item x)) sequence :key key))
  
  (defun remove-if-not (test sequence &key key); from-end (start 0) end count
  
negative.code:       (aref sequence index)))
  
  (defun position (item sequence &key test key); test-not start end from-end
    (unless test (setf test 'eql))
    (unless key (setf key 'identity))
    (if (listp sequence)
        (do ((p 0 (1+ p))
  	   (i sequence (cdr i)))
  