X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Fhppa%2Farray.lisp;h=2c675f93eeffe2e0706a9c036b2e5c48ec3c2934;hb=63817d29028c8551cda23f432a3328acd7fdd62f;hp=d4d3cc6fd52a15728dbe0077de1e9ea88883a0bf;hpb=83764e089aec9f082ce7c038f45ff8883d9ca957;p=sbcl.git

diff --git a/src/compiler/hppa/array.lisp b/src/compiler/hppa/array.lisp
index d4d3cc6..2c675f9 100644
--- a/src/compiler/hppa/array.lisp
+++ b/src/compiler/hppa/array.lisp
@@ -106,7 +106,7 @@
 
   (def-full-data-vector-frobs simple-vector * descriptor-reg any-reg)
   
-  (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)
   
   (def-partial-data-vector-frobs simple-array-unsigned-byte-7 positive-fixnum
     :byte nil unsigned-reg signed-reg)