From: Roman Marynchak <jmrbox@gmail.com>
Date: Thu, 26 May 2011 16:38:34 +0000 (+0300)
Subject: Remove the redundant bootstrap hack from %COMPILER-DEFTYPE
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b0be0cf037c3a3dde21d32f4a685d29d60581915;p=sbcl.git

Remove the redundant bootstrap hack from %COMPILER-DEFTYPE
---

diff --git a/src/compiler/compiler-deftype.lisp b/src/compiler/compiler-deftype.lisp
index 3e04e67..24aeaa3 100644
--- a/src/compiler/compiler-deftype.lisp
+++ b/src/compiler/compiler-deftype.lisp
@@ -47,11 +47,7 @@
     (setf (info :type :source-location name) source-location))
   (when doc
     (setf (fdocumentation name 'type) doc))
-  ;; ### 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)
   name)
 
 (/show0 "compiler-deftype.lisp end of file")