X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-source-location.lisp;h=57af0a7e99ceb4659899cb10d4fc15e81f51264d;hb=d720bc359f03734ccb9baf66cb45dc01d623f369;hp=d5d00e3723ac768f670334fb0b42852144ecf293;hpb=556fa08244211057b003401daf76edf0c8754232;p=sbcl.git

diff --git a/src/code/early-source-location.lisp b/src/code/early-source-location.lisp
index d5d00e3..57af0a7 100644
--- a/src/code/early-source-location.lisp
+++ b/src/code/early-source-location.lisp
@@ -24,13 +24,12 @@
 (defvar *source-location-thunks* nil)
 
 ;; Will be redefined in src/code/source-location.lisp.
-(defun source-location (&optional name)
-  (declare (ignore name))
+(defun source-location ()
   nil)
 
 ;; Will be redefined in src/code/source-location.lisp
 #-sb-xc-host
-(define-compiler-macro source-location (&optional name)
+(define-compiler-macro source-location ()
   (when (and (boundp '*source-info*)
              (symbol-value '*source-info*))
     (let ((form `(cons ,(make-file-info-namestring
@@ -38,8 +37,6 @@
                          (sb!c:get-toplevelish-file-info (symbol-value '*source-info*)))
                        ,(when (boundp '*current-path*)
                               (source-path-tlf-number (symbol-value '*current-path*))))))
-      (when (eq 'replace name)
-        (break "early source location: ~S" form))
       form)))
 
 ;; If the whole source location tracking machinery has been loaded