0.8.13.78: Birds of Feather

[sbcl.git] / src / code / target-load.lisp

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index 560ba0e..c16eaba 100644 (file)
--- 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)))