X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-source-location.lisp;h=57af0a7e99ceb4659899cb10d4fc15e81f51264d;hb=625c9493a8a7b5186144d21302437cf4f4f3571c;hp=bb2fcdab455e59341d70a8c94d8f944bff4740d6;hpb=9d572e5dec980b0a9572c5a888986b4497e92a5c;p=sbcl.git

diff --git a/src/code/early-source-location.lisp b/src/code/early-source-location.lisp
index bb2fcda..57af0a7 100644
--- a/src/code/early-source-location.lisp
+++ b/src/code/early-source-location.lisp
@@ -32,11 +32,12 @@
 (define-compiler-macro source-location ()
   (when (and (boundp '*source-info*)
              (symbol-value '*source-info*))
-    `(cons ,(make-file-info-namestring
-              *compile-file-pathname*
-              (sb!c:get-toplevelish-file-info (symbol-value '*source-info*)))
-           ,(when (boundp '*current-path*)
-                  (source-path-tlf-number (symbol-value '*current-path*))))))
+    (let ((form `(cons ,(make-file-info-namestring
+                         *compile-file-pathname*
+                         (sb!c:get-toplevelish-file-info (symbol-value '*source-info*)))
+                       ,(when (boundp '*current-path*)
+                              (source-path-tlf-number (symbol-value '*current-path*))))))
+      form)))
 
 ;; If the whole source location tracking machinery has been loaded
 ;; (detected by the type of SOURCE-LOCATION), execute BODY. Otherwise