r10562: avoid using calling-convention on lispworks macosx

[uffi.git] / src / functions.lisp

diff --git a/src/functions.lisp b/src/functions.lisp
index 5552ffb67f5359084333b919c2a25a568d4ebca4..1610b2246849e5e386227965f82c9a0f88fc0279 100644 (file)
--- a/src/functions.lisp
+++ b/src/functions.lisp
@@ -200,7 +200,7 @@
        ,@(if module (list :module module) (values))
        :result-type ,result-type
       :language :ansi-c
-       :calling-convention :cdecl)
+       #-macosx :calling-convention #-macosx :cdecl)
     #+(and mcl (not openmcl))
     `(eval-when (:compile-toplevel :load-toplevel :execute)
        (ccl:define-entry-point (,lisp-name ,foreign-name)