X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Ffunctions.lisp;h=1610b2246849e5e386227965f82c9a0f88fc0279;hb=5a7117c2a750662b4ecd36c62c7c073d76f64b4e;hp=35f9f9837c5b8d5037253c53f16c744b105fe6c3;hpb=db363beace9ab3ba90fe398d6b373c6d6a834490;p=uffi.git

diff --git a/src/functions.lisp b/src/functions.lisp
index 35f9f98..1610b22 100644
--- a/src/functions.lisp
+++ b/src/functions.lisp
@@ -138,8 +138,6 @@
 
 
 (defmacro def-function (names args &key module returning)
-  #+(or cmu sbcl scl allegro mcl cormanlisp) (declare (ignore module))
-
   (multiple-value-bind (lisp-args out processed)
       (preprocess-args args)
     (if (= (length out) 0)
@@ -202,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)