X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fdefun-load-or-cload-xcompiler.lisp;h=9bd0b1e97bdd5f459f0194fcb4b6546ef91fdfd0;hb=d15afa61c4854eddb4b61e3d8772590db760c565;hp=66182a7299606d67900fc714ee0872445938d96d;hpb=402958f92506b9d3de852601b8c1ccb99b5ee558;p=sbcl.git

diff --git a/src/cold/defun-load-or-cload-xcompiler.lisp b/src/cold/defun-load-or-cload-xcompiler.lisp
index 66182a7..9bd0b1e 100644
--- a/src/cold/defun-load-or-cload-xcompiler.lisp
+++ b/src/cold/defun-load-or-cload-xcompiler.lisp
@@ -115,6 +115,7 @@
                     "DEPOSIT-FIELD" "DPB"
                     "FBOUNDP" "FDEFINITION" "FMAKUNBOUND"
                     "FIND-CLASS"
+                    "GENSYM" "*GENSYM-COUNTER*"
                     "GET-SETF-EXPANSION"
                     "LDB" "LDB-TEST"
                     "LISP-IMPLEMENTATION-TYPE" "LISP-IMPLEMENTATION-VERSION"
@@ -161,9 +162,7 @@
   ;; routines.
   (do-stems-and-flags (stem flags)
     (unless (find :not-host flags)
-      (funcall load-or-cload-stem
-               stem
-               :ignore-failure-p (find :ignore-failure-p flags))
+      (funcall load-or-cload-stem stem flags)
       #!+sb-show (warn-when-cl-snapshot-diff *cl-snapshot*)))
 
   ;; If the cross-compilation host is SBCL itself, we can use the