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 2851198..c2f9370 100644 (file)
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -2958,7 +2958,7 @@
     (t (let ((pairs (character-set-type-pairs type)))
         `(member ,@(loop for (low . high) in pairs
                          nconc (loop for code from low upto high
-                                    collect (sb!xc:code-char code))))))))
+                                     collect (sb!xc:code-char code))))))))
 
 (!define-type-method (character-set :simple-=) (type1 type2)
   (let ((pairs1 (character-set-type-pairs type1))