0.8.16.25:

[sbcl.git] / src / code / late-type.lisp

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 5a1e0e8..e6f9931 100644 (file)
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -2096,22 +2096,24 @@
               (if (eq (car dims) '*)
                   (case eltype
                     (bit 'bit-vector)
-                    ((base-char character) 'base-string)
+                    ((base-char #!-sb-unicode character) 'base-string)
                     (* 'vector)
                     (t `(vector ,eltype)))
                   (case eltype
                     (bit `(bit-vector ,(car dims)))
-                    ((base-char character) `(base-string ,(car dims)))
+                    ((base-char #!-sb-unicode character)
+                      `(base-string ,(car dims)))
                     (t `(vector ,eltype ,(car dims)))))
               (if (eq (car dims) '*)
                   (case eltype
                     (bit 'simple-bit-vector)
-                    ((base-char character) 'simple-base-string)
+                    ((base-char #!-sb-unicode character) 'simple-base-string)
                     ((t) 'simple-vector)
                     (t `(simple-array ,eltype (*))))
                   (case eltype
                     (bit `(simple-bit-vector ,(car dims)))
-                    ((base-char character) `(simple-base-string ,(car dims)))
+                    ((base-char #!-sb-unicode character)
+                      `(simple-base-string ,(car dims)))
                     ((t) `(simple-vector ,(car dims)))
                     (t `(simple-array ,eltype ,dims))))))
          (t