- (slen2 (- (the fixnum end2) start2)))
- (declare (fixnum slen1 slen2))
- (do ((index1 start1 (1+ index1))
- (index2 start2 (1+ index2))
- (char1)
- (char2))
- ((or (= index1 (the fixnum end1)) (= index2 (the fixnum end2)))
- (if (,length-test slen1 slen2) (- index1 offset1)))
- (declare (fixnum index1 index2))
- (setq char1 (schar string1 index1))
- (setq char2 (schar string2 index2))
- (if (not (char-equal char1 char2))
- (if ,character-test
- (return (- index1 offset1))
- (return ()))))))))
+ (slen2 (- (the fixnum end2) start2)))
+ (declare (fixnum slen1 slen2))
+ (do ((index1 start1 (1+ index1))
+ (index2 start2 (1+ index2))
+ (char1)
+ (char2))
+ ((or (= index1 (the fixnum end1)) (= index2 (the fixnum end2)))
+ (if (,length-test slen1 slen2) (- index1 offset1)))
+ (declare (fixnum index1 index2))
+ (setq char1 (schar string1 index1))
+ (setq char2 (schar string2 index2))
+ (if (not (char-equal char1 char2))
+ (if ,character-test
+ (return (- index1 offset1))
+ (return ()))))))))