Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 5786)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 5787)
@@ -55,5 +55,8 @@
   (dirlist (make-dll-header))
   (attributes ())
-  (ff-call-expand-function ()))
+  (ff-call-expand-function ())
+  (ff-call-struct-return-by-implicit-arg-function ())
+  (callback-bindings-function ())
+  (callback-return-value-function ()))
 
 
@@ -75,5 +78,11 @@
                       :prepend-underscores #+darwinppc-target t #-darwinppc-target nil)
                     :ff-call-expand-function
-                    'os::expand-ff-call 
+                    'os::expand-ff-call
+                    :ff-call-struct-return-by-implicit-arg-function
+                    'os::record-type-returns-structure-as-first-arg
+                    :callback-bindings-function
+                    'os::generate-callback-bindings
+                    :callback-return-value-function
+                    'os::generate-callback-return-value
                     ))