Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 5713)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 5714)
@@ -904,3 +904,8 @@
   v)
 
+(defppc32archmacro ccl::with-ffcall-results ((buf) &body body)
+  (let* ((size (+ (* 8 4) (* 31 8))))
+    `(%stack-block ((,buf ,size))
+      ,@body)))
+
 (provide "PPC32-ARCH")