X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Farray.lisp;h=73ce1c1ebe430b8ded959bccbfa574a1b3cc772d;hb=ca267caa3bdb897a93a1e69ae7300ba3ba5d391f;hp=7a0e774c4ac70656778415264bdd5f770c2b79d1;hpb=bf27595fb567015495b7131707cc85af361567fe;p=sbcl.git

diff --git a/src/compiler/mips/array.lisp b/src/compiler/mips/array.lisp
index 7a0e774..73ce1c1 100644
--- a/src/compiler/mips/array.lisp
+++ b/src/compiler/mips/array.lisp
@@ -104,8 +104,8 @@
   (def-full-data-vector-frobs simple-vector *
     descriptor-reg any-reg null zero)
   
-  (def-partial-data-vector-frobs simple-base-string base-char 
-    :byte nil base-char-reg)
+  (def-partial-data-vector-frobs simple-base-string character 
+    :byte nil character-reg)
   #!+sb-unicode
   (def-full-data-vector-frobs simple-character-string character character-reg)