X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Ffunctions.lisp;h=415401fbb51248f331e005ebe1bbdf3c365a6496;hb=c4533c02d3f2ebd53178c93de2dee09ca39fe0e7;hp=5552ffb67f5359084333b919c2a25a568d4ebca4;hpb=24be2fb19ccbfb39ee2cfbc2ae3c49f4728c0dc5;p=uffi.git

diff --git a/src/functions.lisp b/src/functions.lisp
index 5552ffb..415401f 100644
--- a/src/functions.lisp
+++ b/src/functions.lisp
@@ -9,11 +9,8 @@
 ;;;;
 ;;;; $Id$
 ;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2005 by Kevin M. Rosenberg
 ;;;;
-;;;; UFFI users are granted the rights to distribute and use this software
-;;;; as governed by the terms of the Lisp Lesser GNU Public License
-;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
 (in-package #:uffi)
@@ -200,7 +197,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)