Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 5757)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 5758)
@@ -1514,4 +1514,12 @@
     :void))
 
+(defun null-coerce-foreign-arg (arg-type-keyword argform)
+  (declare (ignore arg-type-keyword))
+  argform)
+
+(defun null-coerce-foreign-result (result-type-keyword resultform)
+  (declare (ignore result-type-keyword))
+  resultform)
+
 (defun foreign-type-to-representation-type (f)
   (if (or (member f *foreign-representation-type-keywords*)