0.9.2.43:
[sbcl.git] / src / code / class-init.lisp
index 45a52ec..b6aab5f 100644 (file)
@@ -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")