r11214: 2006-10-10 Kevin Rosenberg (kevin@rosenberg.net)

        * Version 1.5.17
        * src/functions.lisp: Patch from Edi Weitz for Lispworks 5/Linux

diff --git a/ChangeLog b/ChangeLog
index b08795021e25f773623a1284bfc6942dfc96f4ea..9969e763423ccef4ae75df317d192ebcf68be2b8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-10 Kevin Rosenberg (kevin@rosenberg.net)
+       * Version 1.5.17
+       * src/functions.lisp: Patch from Edi Weitz for Lispworks 5/Linux
+       
 2006-09-02 Kevin Rosenberg (kevin@rosenberg.net)
        * Version 1.5.16
        * src/libraries.lisp: Add cygwin support

diff --git a/debian/changelog b/debian/changelog
index ed8fefd085b87e8e3753c3a7e6bb2e3e61b88038..060c0db756ff592f43e13d7a185213904e91b8df 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-uffi (1.5.17-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 10 Oct 2006 08:34:43 -0600
+
 cl-uffi (1.5.16-1) unstable; urgency=low
 
   * New upstream

diff --git a/src/functions.lisp b/src/functions.lisp
index dc7dca2841e45874ca33066a865b9547ac01708c..fb74d6aaf1d7a5c8c08eb54583fe3ee355d0c557 100644 (file)
--- 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)