1.0.6.31: use proper types for STRING-DISPATCH

* We only want to let one-dimensional character strings through. This change will probably produce better code, too.
akovalenko · Jun 6, 2007 · 176df6f · 176df6f
1 parent b7f3ef0
commit 176df6f
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
@@ -1111,7 +1111,7 @@
             (setf (fd-stream-obuf-tail stream)
                   (string-dispatch (simple-base-string
                                     #!+sb-unicode
-                                    (simple-array character)
+                                    (simple-array character (*))
                                     string)
                       string
                     (let ((len (fd-stream-obuf-length stream))
@@ -1291,7 +1291,7 @@
             (setf (fd-stream-obuf-tail stream)
                   (string-dispatch (simple-base-string
                                     #!+sb-unicode
-                                    (simple-array character)
+                                    (simple-array character (*))
                                     string)
                       string
                     (let ((len (fd-stream-obuf-length stream))

diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
@@ -138,7 +138,7 @@
     (unless (= start end)
       (sb!impl::string-dispatch (simple-base-string
                                  #!+sb-unicode
-                                 (simple-array character))
+                                 (simple-array character (*)))
           string
         ;; For POSITION transform
         (declare (optimize (speed 2)))

diff --git a/version.lisp-expr b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.6.30"
+"1.0.6.31"