1.0.16.31: --control-stack-size runtime argument

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

diff --git a/src/code/source-location.lisp b/src/code/source-location.lisp
index b96898b..d281ccf 100644 (file)
--- a/src/code/source-location.lisp
+++ b/src/code/source-location.lisp
@@ -30,6 +30,7 @@
   (plist *source-plist*))
 
 (defun make-file-info-namestring (name file-info)
+  #+sb-xc-host (declare (ignore name))
   (let* ((untruename (file-info-untruename file-info))
          (dir (and untruename (pathname-directory untruename))))
     #+sb-xc-host
@@ -49,6 +50,7 @@
 
 #!+sb-source-locations
 (define-compiler-macro source-location (&environment env)
+  #+sb-xc-host (declare (ignore env))
   #-sb-xc-host
   (unless (policy env (and (> space 1)
                            (> space debug)))