X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcompiler-deftype.lisp;h=24aeaa31096230341f3cb6203ddf4b3b4a8be381;hb=6c296da561efd25c22e051a1e55080d9689f3ecc;hp=f1453c0606e720d8d91cad69f8f9510bf764cc73;hpb=aa1a5c6ea31c248587d78f62943ad749ea8fbe2f;p=sbcl.git

diff --git a/src/compiler/compiler-deftype.lisp b/src/compiler/compiler-deftype.lisp
index f1453c0..24aeaa3 100644
--- a/src/compiler/compiler-deftype.lisp
+++ b/src/compiler/compiler-deftype.lisp
@@ -43,15 +43,11 @@
      (setf (info :type :kind name) :defined)))
   (setf (info :type :expander name) expander
         (info :type :lambda-list name) lambda-list)
-  (when source-location
+  (sb!c:with-source-location (source-location)
     (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")