X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-load.lisp;h=17a69b714c8b183edb654d9d1d9f6a022637dfb9;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=5667e03cbc0415615c1d648f8766b3c288213b3f;hpb=64bf93a97814ea1caf62bbdcc7ef43e2fbfc8f73;p=sbcl.git

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index 5667e03..17a69b7 100644
--- 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*))