Index: /trunk/ccl/lib/ffi-darwinx8664.lisp
===================================================================
--- /trunk/ccl/lib/ffi-darwinx8664.lisp	(revision 5776)
+++ /trunk/ccl/lib/ffi-darwinx8664.lisp	(revision 5777)
@@ -15,2 +15,14 @@
 ;;;   http://opensource.franz.com/preamble.html
 
+(in-package "CCL")
+
+;;; It looks like x86-64 Linux, FreeBSD, and Darwin all share the same
+;;; ABI.
+
+(defun x86-darwin64::record-type-returns-structure-as-first-arg (rtype)
+  (x8664::record-type-returns-structure-as-first-arg rtype))
+
+
+
+(defun x86-darwin64::expand-ff-call (callform args &key (arg-coerce #'null-coerce-foreign-arg) (result-coerce #'null-coerce-foreign-result))
+  (x8664::expand-ff-call callform args :arg-coerce arg-coerce :result-coerce result-coerce))
Index: /trunk/ccl/lib/ffi-freebsdx8664.lisp
===================================================================
--- /trunk/ccl/lib/ffi-freebsdx8664.lisp	(revision 5776)
+++ /trunk/ccl/lib/ffi-freebsdx8664.lisp	(revision 5777)
@@ -15,2 +15,14 @@
 ;;;   http://opensource.franz.com/preamble.html
 
+(in-package "CCL")
+
+;;; It looks like x86-64 Linux, FreeBSD, and Darwin all share the same
+;;; ABI.
+
+(defun x86-freebsd64::record-type-returns-structure-as-first-arg (rtype)
+  (x8664::record-type-returns-structure-as-first-arg rtype))
+
+
+
+(defun x86-freebsd64::expand-ff-call (callform args &key (arg-coerce #'null-coerce-foreign-arg) (result-coerce #'null-coerce-foreign-result))
+  (x8664::expand-ff-call callform args :arg-coerce arg-coerce :result-coerce result-coerce))
Index: /trunk/ccl/lib/ffi-linuxx8664.lisp
===================================================================
--- /trunk/ccl/lib/ffi-linuxx8664.lisp	(revision 5776)
+++ /trunk/ccl/lib/ffi-linuxx8664.lisp	(revision 5777)
@@ -15,2 +15,17 @@
 ;;;   http://opensource.franz.com/preamble.html
 
+
+(in-package "CCL")
+
+;;; It looks like x86-64 Linux, FreeBSD, and Darwin all share the same
+;;; ABI.
+
+(defun x86-linux64::record-type-returns-structure-as-first-arg (rtype)
+  (x8664::record-type-returns-structure-as-first-arg rtype))
+
+
+
+(defun x86-linux64::expand-ff-call (callform args &key (arg-coerce #'null-coerce-foreign-arg) (result-coerce #'null-coerce-foreign-result))
+  (x8664::expand-ff-call callform args :arg-coerce arg-coerce :result-coerce result-coerce))
+                           
+