Changeset 5758

Timestamp:

Jan 20, 2007, 10:52:47 PM (18 years ago)

Author:

Gary Byers

Message:

Default (no-op) functions for coercing foreign args, results.

File:

• trunk/ccl/lib/foreign-types.lisp (modified) (1 diff)

trunk/ccl/lib/foreign-types.lisp

@@ -1514 +1514 @@
     :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*)