projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.10:
[sbcl.git]
/
src
/
code
/
target-load.lisp
diff --git
a/src/code/target-load.lisp
b/src/code/target-load.lisp
index
5667e03
..
17a69b7
100644
(file)
--- a/
src/code/target-load.lisp
+++ b/
src/code/target-load.lisp
@@
-170,8
+170,8
@@
source, the result of evaluating each top-level form is printed.
The default is *LOAD-PRINT*."
source, the result of evaluating each top-level form is printed.
The default is *LOAD-PRINT*."
- (let ((sb!c::*default-policy* sb!c::*default-policy*)
- (sb!c::*default-interface-policy* sb!c::*default-interface-policy*)
+ (let ((sb!c::*policy* sb!c::*policy*)
+ (sb!c::*interface-policy* sb!c::*interface-policy*)
(*package* (sane-package))
(*readtable* *readtable*)
(*load-depth* (1+ *load-depth*))
(*package* (sane-package))
(*readtable* *readtable*)
(*load-depth* (1+ *load-depth*))