Skip to content
Snippets Groups Projects
Commit 48f6324e authored by wlott's avatar wlott
Browse files

Changed elt to schar.

parent 8b0b0e9f
No related branches found
No related tags found
No related merge requests found
...@@ -43,21 +43,21 @@ be simple strings." ...@@ -43,21 +43,21 @@ be simple strings."
(index2 start2 (1+ index2))) (index2 start2 (1+ index2)))
((= index1 end1) nil) ((= index1 end1) nil)
(declare (fixnum index1 index2)) (declare (fixnum index1 index2))
(if (char/= (elt string1 index1) (elt string2 index2)) (if (char/= (schar string1 index1) (schar string2 index2))
(return index1)))) (return index1))))
((> len1 len2) ((> len1 len2)
(do ((index1 start1 (1+ index1)) (do ((index1 start1 (1+ index1))
(index2 start2 (1+ index2))) (index2 start2 (1+ index2)))
((= index2 end2) index1) ((= index2 end2) index1)
(declare (fixnum index1 index2)) (declare (fixnum index1 index2))
(if (char/= (elt string1 index1) (elt string2 index2)) (if (char/= (schar string1 index1) (schar string2 index2))
(return index1)))) (return index1))))
(t (t
(do ((index1 start1 (1+ index1)) (do ((index1 start1 (1+ index1))
(index2 start2 (1+ index2))) (index2 start2 (1+ index2)))
((= index1 end1) index1) ((= index1 end1) index1)
(declare (fixnum index1 index2)) (declare (fixnum index1 index2))
(if (char/= (elt string1 index1) (elt string2 index2)) (if (char/= (schar string1 index1) (schar string2 index2))
(return index1))))))) (return index1)))))))
(defun %sp-reverse-string-compare (string1 start1 end1 string2 start2 end2) (defun %sp-reverse-string-compare (string1 start1 end1 string2 start2 end2)
...@@ -73,21 +73,21 @@ be simple strings." ...@@ -73,21 +73,21 @@ be simple strings."
(index2 (1- end2) (1- index2))) (index2 (1- end2) (1- index2)))
((< index1 start1) nil) ((< index1 start1) nil)
(declare (fixnum index1 index2)) (declare (fixnum index1 index2))
(if (char/= (elt string1 index1) (elt string2 index2)) (if (char/= (schar string1 index1) (schar string2 index2))
(return index1)))) (return index1))))
((> len1 len2) ((> len1 len2)
(do ((index1 (1- end1) (1- index1)) (do ((index1 (1- end1) (1- index1))
(index2 (1- end2) (1- index2))) (index2 (1- end2) (1- index2)))
((< index2 start2) index1) ((< index2 start2) index1)
(declare (fixnum index1 index2)) (declare (fixnum index1 index2))
(if (char/= (elt string1 index1) (elt string2 index2)) (if (char/= (schar string1 index1) (schar string2 index2))
(return index1)))) (return index1))))
(t (t
(do ((index1 (1- end1) (1- index1)) (do ((index1 (1- end1) (1- index1))
(index2 (1- end2) (1- index2))) (index2 (1- end2) (1- index2)))
((< index1 start1) index1) ((< index1 start1) index1)
(declare (fixnum index1 index2)) (declare (fixnum index1 index2))
(if (char/= (elt string1 index1) (elt string2 index2)) (if (char/= (schar string1 index1) (schar string2 index2))
(return index1))))))) (return index1)))))))
;(defun %sp-find-character-with-attribute (string start end table mask) ;(defun %sp-find-character-with-attribute (string start end table mask)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment