;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: routine.cl
+;;;; Name: function.cl
;;;; Purpose: UFFI source to C function defintions
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
-;;;; $Id: routine.cl,v 1.1 2002/03/09 19:55:33 kevin Exp $
+;;;; $Id: routine.cl,v 1.2 2002/03/09 21:19:31 kevin Exp $
;;;;
;;;; This file is part of the UFFI.
;;;;
;; name is either a string representing foreign name, or a list
;; of foreign-name as a string and lisp name as a symbol
-(defmacro def-routine (names args &key module returning)
+(defmacro def-function (names args &key module returning)
#+(or cmu allegro) (declare (ignore module))
(let* ((result-type (convert-from-uffi-type returning :return))
`(fli:define-foreign-function (,lisp-name ,foreign-name :object)
,function-args
,@(if module (list :module module) (values))
+ :result-type ,result-type
:calling-convention :cdecl)
))