From b0be0cf037c3a3dde21d32f4a685d29d60581915 Mon Sep 17 00:00:00 2001 From: Roman Marynchak Date: Thu, 26 May 2011 19:38:34 +0300 Subject: [PATCH] Remove the redundant bootstrap hack from %COMPILER-DEFTYPE --- src/compiler/compiler-deftype.lisp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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") -- 1.7.10.4