Index: /branches/x8664-call/ccl/compiler/X86/x86-lapmacros.lisp
===================================================================
--- /branches/x8664-call/ccl/compiler/X86/x86-lapmacros.lisp	(revision 6330)
+++ /branches/x8664-call/ccl/compiler/X86/x86-lapmacros.lisp	(revision 6331)
@@ -210,4 +210,7 @@
   `(movq (@ (+ x8664::nil-value ,(x8664::%kernel-global global))) (% ,reg)))
 
+(defx86lapmacro ref-global.l (global reg)
+  `(movl (@ (+ x8664::nil-value ,(x8664::%kernel-global global))) (%l ,reg)))
+
 (defx86lapmacro set-global (reg global)
   `(movq (% ,reg) (@ (+ x8664::nil-value ,(x8664::%kernel-global global)))))