X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Ffunctions.lisp;h=fb74d6aaf1d7a5c8c08eb54583fe3ee355d0c557;hb=895cdddc64ad069c4d8173a21d0d5ce47b79e919;hp=dc7dca2841e45874ca33066a865b9547ac01708c;hpb=6ab554f2441048c9c726104d4f3c6a6acccaf383;p=uffi.git

diff --git a/src/functions.lisp b/src/functions.lisp
index dc7dca2..fb74d6a 100644
--- a/src/functions.lisp
+++ b/src/functions.lisp
@@ -137,6 +137,7 @@
 (defmacro def-function (names args &key module returning)
   (multiple-value-bind (lisp-args out processed)
       (preprocess-args args)
+    (declare (ignorable lisp-args processed))
     (if (= (length out) 0)
 	`(%def-function ,names ,args 
 	  ,@(if module (list :module module) (values))
@@ -197,7 +198,7 @@
        ,@(if module (list :module module) (values))
        :result-type ,result-type
       :language :ansi-c
-       #-macosx :calling-convention #-macosx :cdecl)
+       #+:win32 :calling-convention #+:win32 :cdecl)
     #+digitool
     `(eval-when (:compile-toplevel :load-toplevel :execute)
        (ccl:define-entry-point (,lisp-name ,foreign-name)