X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-load.lisp;h=c16eaba288e51a664fc9589c4c6524268b49777f;hb=4bc6b918bb99e8dcd17bbe6479a06e52b2d04a6c;hp=560ba0e0bb451465e8baa3394b5ba818f558dc80;hpb=15e14ef1ccd3ab6f4711632435a40493dc4cdd9d;p=sbcl.git

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index 560ba0e..c16eaba 100644
--- a/src/code/target-load.lisp
+++ b/src/code/target-load.lisp
@@ -309,3 +309,7 @@
 (defun foreign-symbol-address (symbol)
   (int-sap (foreign-symbol-address-as-integer
 	    (sb!vm:extern-alien-name symbol))))
+
+;;; Overridden in foreign.lisp once we're running on target
+(defun foreign-symbol-in-address (sap)
+  (declare (ignore sap)))