anchor.diff:    (let ((pos (first-mismatch-general-general-char=
   	      string1 string2 start1 end1 start2 end2)))
       (cond ((= pos end1)
  -	   ;; We reached the end of STRING1
  +	   ;; We reached the end of STRING1.
   	   (if (= (- end1 start1) (- end2 start2))
   	       ;; We also reached the end of STRING2, so the strings
   	       ;; are equal.  Therefore STRING1 is not less than
  
positive.code:   (let ((pos (first-mismatch-simple-simple-char=
  	      string1 string2 start1 end1 start2 end2)))
      (cond ((= pos end1)
  	   ;; We reached the end of STRING1
  	   (if (= (- end1 start1) (- end2 start2))
  	       ;; We also reached the end of STRING2, so the strings
  	       ;; are equal.  Therefore STRING1 is greater than or
  
negative.code:   (let ((pos (first-mismatch-general-general-char-equal
  	      string1 string2 start1 end1 start2 end2)))
      (cond ((= pos end1)
  	   ;; We reached the end of STRING1.
  	   (if (= (- end1 start1) (- end2 start2))
  	       ;; We also reached the end of STRING2, so the strings
  	       ;; are equal.  Therefore STRING1 is greater than or
  	       ;; equal to STRING2.
  	       nil
  	       ;; There are more characters left in STRING2, so
  	       ;; STRING1 is a prefix of STRING2.
  