From 3dc00d0c4f7d59f610746a053f72fbe9d1a80fab Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 6 Feb 2003 06:54:22 +0000 Subject: [PATCH] r3958: Automatic commit for debian_version_1_2_6-1 --- debian/changelog | 6 ++++++ src/functions.lisp | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/debian/changelog b/debian/changelog index 9bb90db..b740810 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (1.2.6-1) unstable; urgency=low + + * Add :language :ansi-c for Lispworks def-function + + -- Kevin M. Rosenberg Wed, 5 Feb 2003 23:54:12 -0700 + cl-uffi (1.2.5-1) unstable; urgency=low * Rework allocate-foreign-array to evaluate type diff --git a/src/functions.lisp b/src/functions.lisp index ea87b2e..600603d 100644 --- a/src/functions.lisp +++ b/src/functions.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: functions.lisp,v 1.6 2002/11/20 21:01:31 kevin Exp $ +;;;; $Id: functions.lisp,v 1.7 2003/02/06 06:54:22 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -94,6 +94,7 @@ ,function-args ,@(if module (list :module module) (values)) :result-type ,result-type + :language :ansi-c :calling-convention :cdecl) #+(and mcl (not openmcl)) `(eval-when (:compile-toplevel :load-toplevel :execute) -- 2.34.1