anchor.diff:    (let ((pos (first-mismatch-simple-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: 	   pos)
  	  (t
  	   ;; We did not reach the end of either string, and the
  	   ;; character in STRING1 is NOT less than the character in
  	   ;; STRING2.
  	   nil))))
  
  
negative.code: 	   pos)
  	  (t
  	   ;; We did not reach the end of either string, and the
  	   ;; character in STRING1 is greater than the character in
  	   ;; STRING2.
  	   nil))))
  
  