1.0.42.42: hack around *AUTO-EVAL-IN-FRAME* issues

[sbcl.git] / src / code / source-location.lisp

diff --git a/src/code/source-location.lisp b/src/code/source-location.lisp
index 0d39ac3..3d488d2 100644 (file)
--- a/src/code/source-location.lisp
+++ b/src/code/source-location.lisp
@@ -52,19 +52,15 @@
             nil))))
 
 #!+sb-source-locations
-(define-compiler-macro source-location (&optional name &environment env)
+(define-compiler-macro source-location (&environment env)
   (declare (ignore env))
-  #-sb-xc-host
-  (let ((loc (make-definition-source-location)))
-    (when (eq 'replace name)
-      (break "source location ~S" loc))
-    loc))
+  #-sb-xc-host (make-definition-source-location))
 
 ;; We need a regular definition of SOURCE-LOCATION for calls processed
 ;; during LOAD on a source file while *EVALUATOR-MODE* is :INTERPRET.
 #!+sb-source-locations
 (setf (symbol-function 'source-location)
-      (lambda (&optional name) (declare (ignore name)) (make-definition-source-location)))
+      (lambda () (make-definition-source-location)))
 
 (/show0 "/Processing source location thunks")
 #!+sb-source-locations