detect cpl-protocol-violations early

[sbcl.git] / src / cold / defun-load-or-cload-xcompiler.lisp

diff --git a/src/cold/defun-load-or-cload-xcompiler.lisp b/src/cold/defun-load-or-cload-xcompiler.lisp
index b3e8e2e..9bd0b1e 100644 (file)
--- 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
@@ -174,6 +173,9 @@
   ;; (in the ordinary build procedure anyway) essentially everything
   ;; which is reachable at this point will remain reachable for the
   ;; entire run.
-  #+sbcl (sb-ext:purify)
+  ;;
+  ;; (Except that purifying actually slows down GENCGC). -- JES, 2006-05-30
+  #+(and sbcl (not gencgc))
+  (sb-ext:purify)
 
   (values))