From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 7 Jun 2005 18:55:02 +0000 (+0000)
Subject: r10562: avoid using calling-convention on lispworks macosx
X-Git-Tag: v1.6.1~58
X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=5a7117c2a750662b4ecd36c62c7c073d76f64b4e

r10562: avoid using calling-convention on lispworks macosx
---

diff --git a/src/functions.lisp b/src/functions.lisp
index 5552ffb..1610b22 100644
--- 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)