anchor.diff:          (incf n)))
       n))
   
  -(defun count-if-not (predicate sequence &key key);from-end start end
  -  (count-if (complement predicate) sequence :key key))
  +(defun count-if-not (predicate sequence &key key from-end start end)
  +  (count-if (complement predicate) sequence :key key :from-end from-end :start start :end end))
   
   (declaim (inline find-if find find-if-not))
   (defun find-if (predicate sequence &key key (start 0) end from-end)
  
positive.code:                :start start
                 :end end))
  
  (defun count-if (predicate sequence &key key);from-end start end
    (unless key (setf key 'identity))
    (let ((n 0))
      (if (listp sequence)
  	(dolist (e sequence)
  
negative.code: 	    (incf n))))
      n))
  
  #+nil(defun count (item sequence &key key from-end start end test test-not)
    (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))
    (count-if #'(lambda (x) (funcall test item x)) sequence :key key :from-end from-end :start start :end end))
  
  (defun count (item sequence &key key)
    (setf key (or key #'identity))
    (let ((n 0))
  