anchor.diff:  	(progn (format *test-harness-stream* "~%;;; ================================================================================~%")
   	       (format *test-harness-stream* ";;; Test failed! ~a~%" name)
   	       (loop for msg in error-messages
  -		     do (format *test-harness-stream* "~&;; ~a~%" msg))
  +		     do (format *test-harness-stream* "~&;;; ~a~%" msg))
   	       (format *test-harness-stream* "~&;;; ================================================================================~%")
   	       )))))
   
  
positive.code: 			 new
  			 (subseq str (+ match (length old))))))
      str))
  
negative.code: 		 (not (funcall value-predicate val value)))
  	(push (format nil "Expected:~%~S~%;; Got: ~%~S" value val) error-messages))
        (when (and output (not error-type)
  		 (not (funcall output-predicate output test-output)))
  	(push (diff-output test-output output)
  	      error-messages))
        (when (and file-goto-error
  		 (not (equal file-goto-error emacs::*goto-file-position-stored*)))
  