From: Paul F. Dietz <pfdietz@users.sourceforge.net>
Date: Thu, 28 Jul 2005 09:36:01 +0000 (+0000)
Subject: 0.9.3.5:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a4d85816677a81c6c7a2c29b012575c32a387c18;p=sbcl.git

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
--- 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
--- 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"