Index: /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 5767)
+++ /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 5768)
@@ -1276,4 +1276,11 @@
   `(ccl::%function-vector-to-function ,v))
 
+(defx8664archmacro ccl::with-ffcall-results ((buf) &body body)
+  ;; Reserve space for rax,rdx,xmm0,xmm1 only.
+  (let* ((size (+ (* 2 8) (* 2 8))))
+    `(ccl::%stack-block ((,buf ,size))
+      ,@body)))
+  
+
 
 (provide "X8664-ARCH")