anchor.diff:        (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* "*")
   	  (format *trace-output*
   		  "for test: FIND ~s ~s ~s~@
  -                  expected: ~s~%     but saw:  ~s~%"
  +                   expected: ~s~%     but saw:  ~s~%"
   		  item sequence arguments v1 v2))))))
   
   (defun test-find-1 (item sequence test test-not start end from-end)
  
positive.code:   (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)
        (loop for index from start below end
  	    when (funcall predicate (funcall key (aref sequence index)))
  	      return index)))
  
  (defun test-count-if (predicate sequence key start end from-end)
    (flet ((make-arg (name thing)
  
negative.code:       (let ((v1 (apply #'stupid-position item sequence arguments))
  	    (v2 (apply #'position item sequence arguments)))
        (if (eql v1 v2)
  	  (format *trace-output* "*")
  	  (format *trace-output*
  		  "for test: POSITION ~s ~s ~s~@
                     expected: ~s~%     but saw:  ~s~%"
  		  item sequence arguments v1 v2))))))
  
  (defun test-position-1 (item sequence test test-not start end from-end)
  