0.9.3.5:

   Accelerate the unparse type-method for character-set, which profiling
   revealed was a significant time sink for bug #384.

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 1c49b89..2851198 100644 (file)
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -2957,8 +2957,8 @@
     ((type= type (specifier-type 'standard-char)) 'standard-char)
     (t (let ((pairs (character-set-type-pairs type)))
         `(member ,@(loop for (low . high) in pairs
-                         append (loop for code from low upto high
-                                      collect (sb!xc:code-char code))))))))
+                         nconc (loop for code from low upto high
+                                    collect (sb!xc:code-char code))))))))
 
 (!define-type-method (character-set :simple-=) (type1 type2)
   (let ((pairs1 (character-set-type-pairs type1))

diff --git a/version.lisp-expr b/version.lisp-expr
index 4341743..16442c0 100644 (file)
--- 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".)
-"0.9.3.4"
+"0.9.3.5"