"DEPOSIT-FIELD" "DPB"
"FBOUNDP" "FDEFINITION" "FMAKUNBOUND"
"FIND-CLASS"
+ "GENSYM" "*GENSYM-COUNTER*"
"GET-SETF-EXPANSION"
"LDB" "LDB-TEST"
"LISP-IMPLEMENTATION-TYPE" "LISP-IMPLEMENTATION-VERSION"
;; 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
;; (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))