X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcompiler-deftype.lisp;h=3e04e676528b1590226a047609d56492f0efcfa0;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=6427570e128dbbfb015ca7f2c7eca2b8f4c431fc;hpb=9d40fd46df9f542c2271d939002400aafb0c9c30;p=sbcl.git

diff --git a/src/compiler/compiler-deftype.lisp b/src/compiler/compiler-deftype.lisp
index 6427570..3e04e67 100644
--- a/src/compiler/compiler-deftype.lisp
+++ b/src/compiler/compiler-deftype.lisp
@@ -50,8 +50,8 @@
   ;; ### Bootstrap hack -- we need to define types before %NOTE-TYPE-DEFINED
   ;; is defined. (FIXME: Do we still need to do this? -- WHN 19990310)
   (if (fboundp 'sb!c::%note-type-defined)
-    (sb!c::%note-type-defined name)
-    (warn "defining type before %NOTE-TYPE-DEFINED is defined"))
+      (sb!c::%note-type-defined name)
+      (warn "defining type before %NOTE-TYPE-DEFINED is defined"))
   name)
 
 (/show0 "compiler-deftype.lisp end of file")