Index: /branches/ia32/compiler/X86/x862.lisp
===================================================================
--- /branches/ia32/compiler/X86/x862.lisp	(revision 7707)
+++ /branches/ia32/compiler/X86/x862.lisp	(revision 7708)
@@ -8823,4 +8823,9 @@
 
 
+(defx862 x862-i386-ff-call i386-ff-call (seg vreg xfer address argspecs argvals resultspec &optional monitor)
+  (declare (ignore monitor))
+  (format t "~&i386-ff-call")
+)
+
 (defx862 x862-ff-call ff-call (seg vreg xfer address argspecs argvals resultspec &optional monitor)
   (declare (ignore monitor))
Index: /branches/ia32/compiler/nx1.lisp
===================================================================
--- /branches/ia32/compiler/nx1.lisp	(revision 7707)
+++ /branches/ia32/compiler/nx1.lisp	(revision 7708)
@@ -1334,5 +1334,5 @@
      (:linuxppc32 (%nx1-operator eabi-ff-call))
      ((:darwinppc32 :linuxppc64 :darwinppc64) (%nx1-operator poweropen-ff-call))
-     ;;(:darwinx8632 (%nx1-operator i386-ff-call))
+     (:darwinx8632 (%nx1-operator i386-ff-call))
      ((:linuxx8664 :freebsdx8664 :darwinx8664) (%nx1-operator ff-call)))))
 
Index: /branches/ia32/compiler/nxenv.lisp
===================================================================
--- /branches/ia32/compiler/nxenv.lisp	(revision 7707)
+++ /branches/ia32/compiler/nxenv.lisp	(revision 7708)
@@ -260,5 +260,5 @@
      (inherited-arg . #.operator-single-valued-mask)
      (ff-call . 0)
-     ;;(i386-ff-call . 0)
+     (i386-ff-call . 0)
      (commutative-subprim-binop . 0)
      (%immediate-set-xxx . #.(logior operator-acode-subforms-mask))