X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fshared.lisp;h=e165afbe1ced6b027b182f7bd70c6344b727ef63;hb=d3862cc781cabf52f15c2d3a164f992dbbba84f4;hp=40f1eba7c71fe590f9feee7515c7026316dac4e0;hpb=7dd568fb64927be78556ac27f1f0dc60e79cf942;p=sbcl.git

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index 40f1eba..e165afb 100644
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -136,8 +136,6 @@
 		     (compile-file #'compile-file)
 		     ignore-failure-p)
 
-  (format t "~&/entering COMPILE-STEM~%") ; REMOVEME
-
   (let* (;; KLUDGE: Note that this CONCATENATE 'STRING stuff is not The Common
 	;; Lisp Way, although it works just fine for common UNIX environments.
 	;; Should it come to pass that the system is ported to environments
@@ -199,8 +197,6 @@
     ;; the temporary output file to the permanent object file.
     (rename-file-a-la-unix tmp-obj obj)
 
-    (format t "~&/nearly done with COMPILE-STEM~%") ; REMOVEME
-
     ;; nice friendly traditional return value
     (pathname obj)))
 (compile 'compile-stem)
@@ -310,21 +306,21 @@
 					      :sb-propagate-fun-type))))
     (with-additional-nickname ("SB-XC" "SB!XC")
       (funcall fn))))
-;;; FIXME: This COMPILE caused problems in sbcl-0.6.11.26. (bug 93)
-;;;(compile 'in-host-compilation-mode)
+(compile 'in-host-compilation-mode)
 
 ;;; Process a file as source code for the cross-compiler, compiling it
 ;;; (if necessary) in the appropriate environment, then loading it
 ;;; into the cross-compilation host Common lisp.
 (defun host-cload-stem (stem &key ignore-failure-p)
-  (format t "~&/entering HOST-CLOAD-STEM ~S ~S" stem ignore-failure-p) ; REMOVEME
-  (load (in-host-compilation-mode
-	 (lambda ()
-	   (compile-stem stem
-			 :obj-prefix *host-obj-prefix*
-			 :obj-suffix *host-obj-suffix*
-			 :compile-file #'cl:compile-file
-			 :ignore-failure-p ignore-failure-p)))))
+  (let ((compiled-filename (in-host-compilation-mode
+			    (lambda ()
+			      (compile-stem
+			       stem
+			       :obj-prefix *host-obj-prefix*
+			       :obj-suffix *host-obj-suffix*
+			       :compile-file #'cl:compile-file
+			       :ignore-failure-p ignore-failure-p)))))
+    (load compiled-filename)))
 (compile 'host-cload-stem)
 
 ;;; Like HOST-CLOAD-STEM, except that we don't bother to compile.