X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffixup-type.lisp;h=6cfd887af339830830f473c551983efeef866999;hb=711f75f20284c41f53485fda882fc7cc9e8e930f;hp=ca3406c17bfdac6a93918aeb293360245e876f0a;hpb=cd1f265dd851941557ed3f764248c339c07493a9;p=sbcl.git

diff --git a/src/compiler/fixup-type.lisp b/src/compiler/fixup-type.lisp
index ca3406c..6cfd887 100644
--- a/src/compiler/fixup-type.lisp
+++ b/src/compiler/fixup-type.lisp
@@ -5,8 +5,8 @@
 (!cold-init-forms
  (map 'nil
       (lambda (saetp)
-	(setf (sb!vm:saetp-ctype saetp)
-	      (specifier-type (sb!vm:saetp-specifier saetp))))
+        (setf (sb!vm:saetp-ctype saetp)
+              (specifier-type (sb!vm:saetp-specifier saetp))))
       sb!vm:*specialized-array-element-type-properties*))
 
 (!defun-from-collected-cold-init-forms !fixup-type-cold-init)
\ No newline at end of file