projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.29.13: relax CAST-EXTERNALLY-CHECKABLE-P a bit
[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
66182a7
..
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