Index: /branches/ia32/level-0/X86/X8632/x8632-def.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-def.lisp	(revision 9460)
+++ /branches/ia32/level-0/X86/X8632/x8632-def.lisp	(revision 9461)
@@ -62,4 +62,12 @@
   (box-fixnum imm0 arg_z)
   (single-value-return))
+
+(defx8632lapfunction %function-register-usage ((f arg_z))
+  (check-nargs 1)
+  (trap-unless-typecode= f x8632::subtag-function)
+  (movl (% esp) (% temp0))
+  (pushl ($ nil))
+  (pushl ($ nil))
+  (jmp-subprim .SPvalues))
 
 ;;; XXX probably should unify these next two with the x8664 versions.