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

diff --git a/src/cold/defun-load-or-cload-xcompiler.lisp b/src/cold/defun-load-or-cload-xcompiler.lisp
index a83e063..9bd0b1e 100644
--- a/src/cold/defun-load-or-cload-xcompiler.lisp
+++ b/src/cold/defun-load-or-cload-xcompiler.lisp
@@ -162,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