X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-type.lisp;h=4e9190a234d620f5928b79ddb1570375860af52c;hb=475c832b081651e66ad9446d4852c62086f5e740;hp=1cfe57e8a0ec6413b09530e057ce315aa3a5ba16;hpb=4aa82530da00c41e2751671ac75eda2d19a173a0;p=sbcl.git

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 1cfe57e..4e9190a 100644
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -1873,8 +1873,8 @@
   |#
   ;; old code
   (reduce #'type-union
-        (mapcar #'specifier-type type-specifiers)
-        :initial-value *empty-type*))
+	  (mapcar #'specifier-type type-specifiers)
+	  :initial-value *empty-type*))
 
 ;;;; CONS types