anchor.diff:  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  -;;; Test STRING-equal.
  +;;; Test STRING-EQUAL.
   
   (defun list-equal (list1 list2 start1 end1 start2 end2)
     (let ((l1 (loop for i from 0
  
positive.code: 		  (string-capitalize string1)
  		  string2
  		  :start1 start1 :start2 start2 :end1 end1 :end2 end2))))))
  
negative.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Test STRING-LESSP.
  
  (defun list-lessp (list1 list2 start1 end1 start2 end2)
    (let ((l1 (loop for i from 0
  