0.6.10.13:

[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*."
 
-  (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*))