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

diff --git a/src/compiler/compiler-deftype.lisp b/src/compiler/compiler-deftype.lisp
index f1453c0..6427570 100644
--- a/src/compiler/compiler-deftype.lisp
+++ b/src/compiler/compiler-deftype.lisp
@@ -43,7 +43,7 @@
      (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))