;;;; Purpose: UFFI source to C function definitions
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Purpose: UFFI source to C function definitions
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
,function-args
,@(if module (list :module module) (values))
:result-type ,result-type
,function-args
,@(if module (list :module module) (values))
:result-type ,result-type
:calling-convention :cdecl)
#+(and mcl (not openmcl))
`(eval-when (:compile-toplevel :load-toplevel :execute)
:calling-convention :cdecl)
#+(and mcl (not openmcl))
`(eval-when (:compile-toplevel :load-toplevel :execute)