X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass-init.lisp;h=b6aab5fdf2f827fda846a38b181475d4f271a435;hb=83aafeb6d7a8ca3c6036b0b9d229785773b20e2d;hp=45a52ec822e489aacd37ad08d6ff55ba4265ec6b;hpb=4680204d81349894f47d2ba5fcfc92ecf4e725d3;p=sbcl.git

diff --git a/src/code/class-init.lisp b/src/code/class-init.lisp
index 45a52ec..b6aab5f 100644
--- a/src/code/class-init.lisp
+++ b/src/code/class-init.lisp
@@ -25,8 +25,8 @@
     (when trans-p
       (/show0 "in TRANS-P case")
       (let ((classoid (classoid-cell-classoid (find-classoid-cell name)))
-	    (type (specifier-type translation)))
-	(setf (built-in-classoid-translation classoid) type)
-	(setf (info :type :builtin name) type)))))
+            (type (specifier-type translation)))
+        (setf (built-in-classoid-translation classoid) type)
+        (setf (info :type :builtin name) type)))))
 
 (/show0 "done with class-init.lisp")