X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-type.lisp;h=c2f937015f0843535f03d2abdfc915401ad06cd2;hb=9dfd024c6fe1337ae7b76f0fd68b8f3208a6c987;hp=1c49b8916d7f7d2263f44a6d91760ad8a79a550f;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 1c49b89..c2f9370 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))