From f80af6ab580cbaac4bd60dbda719ff20a992206d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Matthias=20K=C3=B6ppe?= Date: Wed, 7 Jul 2004 16:55:27 +0000 Subject: [PATCH] Define preprocessor symbol SWIG_ALLEGRO_CL. Fix FF:DEF-FOREIGN-CALL call. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6016 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- Lib/allegrocl/allegrocl.swg | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Lib/allegrocl/allegrocl.swg b/Lib/allegrocl/allegrocl.swg index ea17f3cea..2a8abf1b7 100644 --- a/Lib/allegrocl/allegrocl.swg +++ b/Lib/allegrocl/allegrocl.swg @@ -1,3 +1,8 @@ +/* Define a C preprocessor symbol that can be used in interface files + to distinguish between the SWIG language modules. */ + +#define SWIG_ALLEGRO_CL + %wrapper %{ ;; $Id$ @@ -49,10 +54,10 @@ (let ((symbol (funcall *swig-identifier-converter* name :type :operator))) `(eval-when (compile load eval) (excl::compiler-let ((*record-xref-info* nil)) - (ff:def-foreign-call ,symbol ,@rest) + (ff:def-foreign-call (,symbol ,name) ,@rest) (export (quote ,symbol)))))) - - + + ) ;; eval-when %}