;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: function.cl
+;;;; Name: function.lisp
;;;; Purpose: UFFI source to C function definitions
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: functions.lisp,v 1.6 2002/11/20 21:01:31 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-(in-package :uffi)
+(in-package #:uffi)
(defun process-function-args (args)
(if (null args)
,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)
))
-(defun make-lisp-name (name)
- (let ((converted (substitute #\- #\_ name)))
- (intern
- #+case-sensitive converted
- #-case-sensitive (string-upcase converted))))