From 176df6fde6fb14b3dd158785d8a30e98a375ff77 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Wed, 6 Jun 2007 22:28:52 +0000 Subject: [PATCH] 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. --- src/code/fd-stream.lisp | 4 ++-- src/code/pprint.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index 6c73160..7bef99d 100644 --- 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 index 9fb162e..0da0d3d 100644 --- 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 index cbd3329..bf8a96b 100644 --- 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" -- 1.7.10.4