X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fforeign.lisp;h=539f2729e05d5fff8fe635945feb72baffa559e6;hb=83312cce6ee1c74fe99805831afb5cfbcb4248bd;hp=3456a8aa186b5ee02355f00b779555e0e12ba4c9;hpb=75b52379bdc2269961af6a1308eca63610f38ac3;p=sbcl.git

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 3456a8a..539f272 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -56,6 +56,7 @@
           (int-sap (sap-ref-32 (int-sap addr) 0))
           (int-sap addr)))))
 
+#-sb-xc-host
 (defun foreign-reinit ()
   #!+os-provides-dlopen
   (reopen-shared-objects)
@@ -63,6 +64,7 @@
   (linkage-table-reinit))
 
 ;;; Cleanups before saving a core
+#-sb-xc-host
 (defun foreign-deinit ()
   #!+(and os-provides-dlopen (not linkage-table))
   (let ((shared (remove-if #'null (mapcar #'sb!alien::shared-object-file
@@ -113,6 +115,7 @@
 ;;; How we learn about foreign symbols and dlhandles initially
 (defvar *!initial-foreign-symbols*)
 
+#-sb-xc-host
 (defun !foreign-cold-init ()
   (dolist (symbol *!initial-foreign-symbols*)
     (setf (gethash (car symbol) *static-foreign-symbols*) (cdr symbol)))