0.8.16.9:

[sbcl.git] / src / compiler / hppa / array.lisp

diff --git a/src/compiler/hppa/array.lisp b/src/compiler/hppa/array.lisp
index d4d3cc6..2c675f9 100644 (file)
--- 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)