projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More efficient integer division by multiplication
[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"
"DEPOSIT-FIELD" "DPB"
"FBOUNDP" "FDEFINITION" "FMAKUNBOUND"
"FIND-CLASS"
+ "GENSYM" "*GENSYM-COUNTER*"
"GET-SETF-EXPANSION"
"LDB" "LDB-TEST"
"LISP-IMPLEMENTATION-TYPE" "LISP-IMPLEMENTATION-VERSION"
"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)
;; 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
#!+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.
;; (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))
(values))