X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstring.lisp;fp=src%2Fcode%2Fstring.lisp;h=10e5dcd6ea3d4bc67d575ed27f0d747ea5d5d5f0;hb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;hp=0482f5db3e80d329c1b0c403dc21745c13830e7c;hpb=54a2e62234dc9a399ae12e56fe212d2137b43556;p=sbcl.git

diff --git a/src/code/string.lisp b/src/code/string.lisp
index 0482f5d..10e5dcd 100644
--- a/src/code/string.lisp
+++ b/src/code/string.lisp
@@ -83,7 +83,7 @@
   (setf (schar string index) new-el))
 
 (defun string=* (string1 string2 start1 end1 start2 end2)
-  (with-two-strings string1 string2 start1 end1 offset1 start2 end2
+  (with-two-strings string1 string2 start1 end1 nil start2 end2
     (not (%sp-string-compare string1 start1 end1 string2 start2 end2))))
 
 (defun string/=* (string1 string2 start1 end1 start2 end2)
@@ -217,7 +217,7 @@
   start2, end1 and end2, compares characters in string1 to characters in
   string2 (using char-equal)."
   (declare (fixnum start1 start2))
-  (with-two-strings string1 string2 start1 end1 offset1 start2 end2
+  (with-two-strings string1 string2 start1 end1 nil start2 end2
     (let ((slen1 (- (the fixnum end1) start1))
 	  (slen2 (- (the fixnum end2) start2)))
       (declare (fixnum slen1 slen2))