diff --git a/code/mipsstrops.lisp b/code/mipsstrops.lisp index 854d121d62b488c61912d68df4208bfcabfe79f0..aac4aa74bbab4819bd85d7fe7ca8bcfcfe7319d6 100644 --- a/code/mipsstrops.lisp +++ b/code/mipsstrops.lisp @@ -43,21 +43,21 @@ be simple strings." (index2 start2 (1+ index2))) ((= index1 end1) nil) (declare (fixnum index1 index2)) - (if (char/= (elt string1 index1) (elt string2 index2)) + (if (char/= (schar string1 index1) (schar string2 index2)) (return index1)))) ((> len1 len2) (do ((index1 start1 (1+ index1)) (index2 start2 (1+ index2))) ((= index2 end2) index1) (declare (fixnum index1 index2)) - (if (char/= (elt string1 index1) (elt string2 index2)) + (if (char/= (schar string1 index1) (schar string2 index2)) (return index1)))) (t (do ((index1 start1 (1+ index1)) (index2 start2 (1+ index2))) ((= index1 end1) index1) (declare (fixnum index1 index2)) - (if (char/= (elt string1 index1) (elt string2 index2)) + (if (char/= (schar string1 index1) (schar string2 index2)) (return index1))))))) (defun %sp-reverse-string-compare (string1 start1 end1 string2 start2 end2) @@ -73,21 +73,21 @@ be simple strings." (index2 (1- end2) (1- index2))) ((< index1 start1) nil) (declare (fixnum index1 index2)) - (if (char/= (elt string1 index1) (elt string2 index2)) + (if (char/= (schar string1 index1) (schar string2 index2)) (return index1)))) ((> len1 len2) (do ((index1 (1- end1) (1- index1)) (index2 (1- end2) (1- index2))) ((< index2 start2) index1) (declare (fixnum index1 index2)) - (if (char/= (elt string1 index1) (elt string2 index2)) + (if (char/= (schar string1 index1) (schar string2 index2)) (return index1)))) (t (do ((index1 (1- end1) (1- index1)) (index2 (1- end2) (1- index2))) ((< index1 start1) index1) (declare (fixnum index1 index2)) - (if (char/= (elt string1 index1) (elt string2 index2)) + (if (char/= (schar string1 index1) (schar string2 index2)) (return index1))))))) ;(defun %sp-find-character-with-attribute (string start end table mask)