Index: /branches/ia32/level-0/X86/X8632/x8632-bignum.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-bignum.lisp	(revision 9399)
+++ /branches/ia32/level-0/X86/X8632/x8632-bignum.lisp	(revision 9400)
@@ -542,4 +542,8 @@
   (single-value-return))
 
+(defx8632lapfunction macptr->fixnum ((ptr arg_z))
+  (macptr-ptr arg_z ptr)
+  (single-value-return))
+
 ; if dest not nil store unboxed result in dest(0), else return a fixnum
 (defx8632lapfunction fix-digit-logandc2 ((fix 4) #|(ra 0)|# (big arg_y) (dest arg_z)) ; index 0