jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Define preprocessor symbol SWIG_ALLEGRO_CL.

Browse source 
Fix FF:DEF-FOREIGN-CALL call.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6016 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2004-07-07 16:55:27 +00:00
commit b2b5c662ec
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
SWIG/Lib/allegrocl/allegrocl.swg
View file

@ -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 %{ %wrapper %{
;; $Id$ ;; $Id$
@ -49,7 +54,7 @@
(let ((symbol (funcall *swig-identifier-converter* name :type :operator))) (let ((symbol (funcall *swig-identifier-converter* name :type :operator)))
`(eval-when (compile load eval) `(eval-when (compile load eval)
(excl::compiler-let ((*record-xref-info* nil)) (excl::compiler-let ((*record-xref-info* nil))
(ff:def-foreign-call ,symbol ,@rest) (ff:def-foreign-call (,symbol ,name) ,@rest)
(export (quote ,symbol)))))) (export (quote ,symbol))))))