;;;; 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
;;;;
,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)