0.9.3.11:

[sbcl.git] / src / code / late-type.lisp

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