From 895cdddc64ad069c4d8173a21d0d5ce47b79e919 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 10 Oct 2006 14:35:39 +0000 Subject: [PATCH] r11214: 2006-10-10 Kevin Rosenberg (kevin@rosenberg.net) * Version 1.5.17 * src/functions.lisp: Patch from Edi Weitz for Lispworks 5/Linux --- ChangeLog | 4 ++++ debian/changelog | 6 ++++++ src/functions.lisp | 3 ++- 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index b087950..9969e76 100644 --- 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 ed8fefd..060c0db 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (1.5.17-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg 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 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) -- 2.34.1