X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fearly-c.lisp;h=62b732914c55d577191e99c7de2fab26d9b76bf0;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=205eccb82c5bebe5f2d630477713aa4246c91924;hpb=f392742d2781f42b3bb15b637e5008e10fbbe092;p=sbcl.git

diff --git a/src/compiler/early-c.lisp b/src/compiler/early-c.lisp
index 205eccb..62b7329 100644
--- a/src/compiler/early-c.lisp
+++ b/src/compiler/early-c.lisp
@@ -77,8 +77,8 @@
 (defvar *count-vop-usages*)
 (defvar *current-path*)
 (defvar *current-component*)
-(defvar *default-policy*)
-(defvar *default-interface-policy*)
+(defvar *policy*)
+(defvar *interface-policy*)
 (defvar *dynamic-counts-tn*)
 (defvar *elsewhere*)
 (defvar *event-info*)