Index: /branches/ia32/compiler/X86/X8632/x8632-arch.lisp
===================================================================
--- /branches/ia32/compiler/X86/X8632/x8632-arch.lisp	(revision 7770)
+++ /branches/ia32/compiler/X86/X8632/x8632-arch.lisp	(revision 7771)
@@ -1083,4 +1083,13 @@
                             name)))))
 
+(defx8632archmacro ccl::%get-kernel-global-ptr (name dest)
+  `(ccl::%setf-macptr
+    ,dest
+    (ccl::%fixnum-ref-macptr 0 (+ x8632::nil-value
+				  ,(%kernel-global
+				    (if (ccl::quoted-form-p name)
+				      (cadr name)
+				      name))))))
+
 (defx8632archmacro ccl::%target-kernel-global (name)
   `(x8632::%kernel-global ,name))