0.8.14.7: self building. self building is good

           * Oops fixage, to make self builds possible
              once again.

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 3456a8a..539f272 100644 (file)
--- 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)))

diff --git a/version.lisp-expr b/version.lisp-expr
index cc36f22..8e0394d 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.14.6"
+"0.8.14.7"