anchor.diff:    (assert (<= 0 end (length sequence)))
     (if from-end
         (loop for index downfrom (1- end) to start
  -	    when (funcall predicate (funcall key (aref sequence index)))
  -	      return index)
  +	    count (funcall predicate (funcall key (aref sequence index))))
         (loop for index from start below end
  -	    when (funcall predicate (funcall key (aref sequence index)))
  -	      return index)))
  +	    count (funcall predicate (funcall key (aref sequence index))))))
   
   (defun test-count-if (predicate sequence key start end from-end)
     (flet ((make-arg (name thing)
  
positive.code:       (let ((v1 (apply #'stupid-find item sequence arguments))
  	    (v2 (apply #'find item sequence arguments)))
        (if (eql v1 v2)
  	  (format *trace-output* "test passed~%")
  	  (format *trace-output*
  		  "for test: FIND ~s ~s ~s~@
                    expected: ~s~%     but saw:  ~s~%"
  		  item sequence arguments v1 v2))))))
  
  (defun test-find-1 (item sequence test test-not start end from-end)
  
negative.code:       (let ((v1 (apply #'stupid-count item sequence arguments))
  	    (v2 (apply #'count item sequence arguments)))
  	(if (eql v1 v2)
  	    (format *trace-output* "*")
  	    (format *trace-output*
  		    "for test: COUNT ~s ~s ~s~@
                       expected: ~s~%     but saw:  ~s~%"
  		    item sequence arguments v1 v2))))))
  
  (defun test-count-1 (item sequence test test-not start end from-end)
  