r1520: *** empty log message ***

[uffi.git] / src / routine.cl

diff --git a/src/routine.cl b/src/routine.cl
index ddbc4db0e9b55b197a9ee47957441becbd4be1f2..9dd7aa40b2cf9ab95fd055282675ec20939410c0 100644 (file)
--- a/src/routine.cl
+++ b/src/routine.cl
@@ -2,14 +2,14 @@
 ;;;; *************************************************************************
 ;;;; 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. 
 ;;;;
@@ -58,7 +58,7 @@
 
 ;; 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))
@@ -80,6 +80,7 @@
     `(fli:define-foreign-function (,lisp-name ,foreign-name :object)
         ,function-args
        ,@(if module (list :module module) (values))
+       :result-type ,result-type
        :calling-convention :cdecl)
     ))